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L 




l^ADOeR 
S€TCRLOO 



XX 

ORi AOR TO SA«* 



-OTiOO- 
TO IHFiTCH 



XX "■"■An 
IP T*iS«O#0O*C« 
— T¥B90O AN© 

CAR(0>«Of OX^CR 
IP T4tiS#0 ANO 
CAR(0)«l*XO#CR 

CO«PARC OPl ANB 
0R2 AND SeT COnO 
f€Of 00 TO I FETCH 



OX 



t W$2^tSA 



wwiiii n w ^ wii m ^iK w iiii, 



XX «%«€lf 



0P2 AOR TO Rt 



10 
liXO 

. ^ i5ffg*tsA 

$ XA/Oia*A 
C £#S47 
R X-FCTCN 
OX-^ •-•-OA 
EX€RN0XA<30)*A 
fXCPNfl(XA(30>tRgF>*| 
1ST WD OF I FETCH 



XX 60» 

i ixxo 

t W$ff ♦tSA 

S XA/042^A 
C e^$47 
R X^FiTCH 
LX-*« -^A 
eXCFNQXAOOJ^A 

fXCFS0aA(30>iiReF)^B 
T WD OF X FETCH 



-aTxxo 

(OOfOXtXOvXX) 

TO »5d cycle 

OF X-FETCH 



254 

2»a 




MACH 
NAME 
NODE 

PmHm 



C?050 

HANUAL 
5364904 

son 



BATE 

too 



SNEET 
VERSION 



X QF102 



COf^ARF t06TCAL(SS) 



— mi 

I*#fTCM 



Am 



TO $m^- MX sjmu 



^ m 
1 r 'mi • 



uuxx ^ 

6 0001 



^ w Ta it 



KX 

mimm 



m0 



Wim TO W fWm 

mn MS f«»t a# 

Xn mw 4 STAT 



wm 



M AW? Ti|P 



Aim 



x$T m 

S0jl'lTA!^7*?0« 
|T Al^jP NAI¥ 
INiTWUCTIOWt 



0 

t 
c 
n 



XX 
0000 

mm 

WSXfUA 

IVA 

X* 




CH?>JK AD« TO H RCO# 

suT u TO of»a iktm 

FCTCH W AD« TO N« 
SfT W¥« f CW WEO 
TO Cms$«OATi« 
m m INVAtZI^ APR 



tmm 'TO t« 

TW OW STAT 5 

fm tm$LW htm 



m^mtxixm 



L-$tm STAT 



n stm STAT . 



C58Ri$l»OI^$ TO S TRISOER |l« DiSCRmxON 
OF EDIT IWISTRUCTIOI^t TUI«^t> Oftl TO 
Xt^OICATI SX^II^ICAICf HAS W&mM^ TIKWD 

oPriri 1? A ik.^ siiif IS pfKftSn! A 

FlfUD S^ARATCm IS WOTTfRfB 

n m iwPiCATSs A si0« ws mm pmtcx& 

«3:gHT PiaT POSITIC^ Cl««RiEWT 
SOilRCe iYTg 



I 



XX 



0I>» 



A . 
^ ■'HOTl^AOl^ ■ 
i IISE^SA 
«*LS 



A4*«» 



XX 



AOR^g^i m mm 



00 



01C 



C iDITsW 

n BmxpfkX 0 
IF s<^i^amoN 

IF WOT SOPIfOmON 

If /•o^tsisttt 
TEST V wex vaye 

IF 20 « OO'lAi 
IF tl« Ol^A» 

IF mm 

IF OTHERf li^AB 
SOimCi StTi TO «VR 

^TW FOR Zmm TEST 
R m SPIT STATS 



m STAT a ^ m^M^ix useij 
,0^ STAT' I ^ mwm iwm 

m STAT 3 tJONTHNLf FT ^ OM 
^ ' . EmiltS RJiMT 
OF STAT S * IWVAL10 AI5R« 

STAT 7 • iprr mn mm 



XX C03--O0ii 

h P^ 



j ^5*^ XX """""AE. 

Ori W -TO TORN ' 
OFF R SXaM STAT* 



XX 



i 

t 
c 



mm 

Irffl^^F 
MI#t$A 

, „ ^ 00 ""'•''''''Al 

1ST pxm tnm 
TO F(iv»? TO srr 

E»IT StATS 
SAVt-FTRtM mfkn 
XW FI0 fr TO USE AS 
FXLt CMAH 



RESET mHim} STATf TME« STORE FT 1^ RECESSARY 



f SiFARATO^«^ ■ 

10 — * ooaa 

E 0100 
A R#RX3 
H»ITX#AOOER 
S03*lE 



XX —EE 



UFOATE OFI APR* 
Xn CTF STAT ONE 
(li^MXmi STATU 



HESSAOE XNSEHTXON 
11 — ' 0033 

A mnis 

WtF^O 

i m¥ 

P WOTXt^l 
P 

n G2#l»3 ' 0 
US**"* jji0 *"*"%IE 
FILL CMAR TO M 
STBI^'COOflimS 
FTW APR / I TO 
RCa*3l) 



SIGNIFICANCE START 

01 02; 
S nil 

0-»MB e¥\C 

c i^tsows 

ALTE^ EMIT IF 
ASCII ilT ON 

zmm COPE AWP 

SOIIRCi PIOIT TO H 
Tt»5fN CN^ I Sim STAT 



PIGIT- SELECT 
20NE mm ANP 
SOORCE PIOIT TO n 

00 PtO 

'i nil 

i ¥#l«IIEf J 
C W#|VP 

R ,H.wO -RSGNS 
S»-«- ' j«# i^E 



» 0 
SYTE 



SOURCE PIOXT NOT < 
Nt SXdN XN SOURCE 

, 00 ^ wm 

E ilOl 

A mnu 
: woTifon 

t wsmsA 
t ii*Cs 

C S030Eil<»k$0N 
R a/MB3 0 ^ 

ET'<*<iM. i$0 «<<%iiiEU 

FTRN AIN«J / X TO 
W<B-%SIU THEN Ait 
n TO WS2 
STEF CgUNTCTS 
XNPXCATE mN«€£RO 
SOURCE PI6XT 



SOURCE PI6IT « 0 

NO $im m $mmm byte 
10 — opa6 

E lOOl 
^ A R#RX3 
Ow^B WP»F#y 
B U#W 
B W'i'WMB 
P HOTIfG-l 

p *mi 

C S030E 

t o^/^3 



*<|F204- 
CXX) 



"*EiC 



BI^ANCN ON FTRN 



FXEiP COWFiETE ON W FXiiEB 



Jfmm 




Flit CmR TO w 
FTRN APR / I TO 
RCi.i^|} 

STa» cowrERS 



BRAICH ON-* 



-^201 

coofioi 



iRAI^H\ON*» 



SOU^OK PI0 NOT « 0 
SIGN IN SOURCE BYTE 
01 OPtS 
E liOO 

' ■ A mni^ 

— P HOTIMPPER 

i WSa^LSA 

^ i f^iS 

C SOSOEtmSOW^ 



XX "oOlO 



B iiB*fU 
^ 0*»l 

C 
R 



XX COS OPPS 



FTRN APR / I TO 
Ria«*3|H THEN AUL 

R TO wsa 

■INDICATE Nt^ZERO 
SOUR€« DIGIT 



«€OURCr PI0IT IS 

, Fosif ION m 

SCARCE BYTE 



tITSON 



IF S<SN*1#RSCN 

IF tm SGNfO^RSON 

IF /iO»iS0N 



BRANCH ON- 

^Xm FlEiP COW^TEp OR 

« FliLEP 
-AiL SOWCE PiaTS 
IN i USEP 



"OFfOS 

cootoiaoair 



SOWCC PK5IT • 0 
Stm IN SOURCE BYTE 
II — 01527 

e 1000 1*^ 
A mMU \ 

B MPtF^y FIti CHAR TO 

B y#W ^ I FTRN ^PR / I 

i mmB . I R^€h*3ir - 

P «T|#APPiR j :^ ' 
C SOSOE , ^ -1 
XX -^G 



/ J7-* 

2aam ' 



MACN 

-NAl^E ' 

F#Nir ' 



TO 



C20SX>^ 

?37m«>0 
pp ,^ - 



PATE Ol+30/f® 

LOS . ' m? i 



$mm- % wfoo 

^ VERSION ,C03 ^ 



f Pir»fP'IT ^P llA,IS»t tTOIT«) 

im'f^imm* "S oFFt mm^ mm, 



(10) 



(10) 



10 ^ OiC 

i U^W 

C 60ZT$<iN 

n »IWT 0 
V NOT SONfOtRSQN 

TtsT V Hex VAtUe 

IF 20# 00*A» 

XF 22i 10#AB 
XF OTHERf IX^AB 
SOURCe iVTi TO MVR 
UTH^W ZERO TEST 



XO ^ 

me 0X00 

A R^RX3 

0 motx^aooer 

C $03#^E 



0D2A 



-aF204« 
(XX) 



-AC« 



UFOATE OPX AOR 
RESET NONo^ERO 
STAT U 



MESSAOE XNSERTXON 



0-^ 



XX 



0D2B 



A R^RX3 
B MOTXfO^X 
0 HBf X 
C X^tSGNS 
R 62/MB3 0 

M NOT CHANGED 

PTRN AlHR / X TO 

R<B«3X) 

STEF COUNTERS 



0B2C 



SIGNIFICANCE START 



D29 



OR 

DIGIT SEtECT 



B 
B 

B 
C 
R 



OX - 

xxxx 

UB^U 

E^Wt T*WR 

WR^IVD 
Wt»0 RSGNS 

AUTER EMIT IF 
ASCII BIT tm 
ZONE CODE AND 
SOURCE DIGIT TO W 
BRANCH ON** 
HDIGIT • 0 
•SIGN IN RIGHT FOS 
OF SOijRCE BYTE 



* 00 ^ 

SXGIT NOT » 0 E XXOX 

0 SIGN IN SOURCE BYTEA R«RX3 

^"^' ' ^■^'■^■■'^^ HOTXfG«»X 
D Mi/x 
C S03QE 

R G2+MB3 0^ 



INDICATE DIGIT WAS 

NON-ZERO <SX) 

FTRN ADR f X TO 

RiS^X) 

STEP COUNTERS 



BRANCH ON M READY TO BE STORED* OR 
RTRN PIELD COMPACTED 



4t xo 0D2E 
DIGIT m 0 E XOOX 
NO SIGN IN SOURCE BYTEA R*RX3 
D HOTXfGHl 

D m¥% 

C $03RE 
R G2/MB3 0 I- 
J5— W — JE 



FORCE B • 0 SINCE A SOURCE DIGIT WAS NOT USED 



<00tX0) 



PTRN ADR t X 
R<CN3X} 
STEP COUNTERS 



TO 



DIGIT NOT * 0 

SIGN IN SOURCE BYTE 



0D2D 



OX ^ 
IlOO 
R^RX3 
J^TlfG-l 
tB.MBfl 
SOSaE 

G2/MB3 LB»3 



D 
C 
R 

NS**"* 



INOICATE DIGIT WAS 
N0N-2ER0 (SX> 
PTRN ADR 4" I TO 

ST1EP COUNTERS 



BRANCH tSf^ 

FIELD COMPtETED OR M FIOED 
-AU SOURCE DIGITS IN t USfiB 



DIGIT « 0 

SIGN IN SOURCE BYTE 



a 

P 
2 
0 
2 



IX ^ 0D2F 
E 1000 
A R^RX3 
^ HDTX«G*X 
D UtMB4*X 
C S03QE 
R 02/MB3 tB«3 
S5**» -^SE 



-QP201 
(00«0XfX0«Xl) 



PTRN ADR / X TO 
STEP C&WERS 



I 25A?$0 

I 2SS43? 
1 255449 



t2/2v 
02/2, 

04/a 




I MACH 
' NAME 

P«N« 



C2050 

MANUAt 

5364797 

SDD 



DATE 

tOG 



10/01465 
902 



SHEET 
VERSION 



1 Ctf»202 



FDTT» EDIT AND MARK (BD» 
LEFT SOURCE DIGIT* S ON 



FDMKV 



10 0D32 

D MOTltAOtHSR 
C £t$03 



AOUfi TO ll<0Hli)t 
TW ON STATO 

RCSKT STATl 

— «a 



(XXI 



TN ON STAT3 
<HA TO RIGHT)* 



MESSAGE INSERTION 



0D33 



ooox 

R>RX3 

HOTXf0-X 
MifX 
S03QE 
GZ/MB3 

«(0 



B 

c 

R 



BR ON FTRN FXS.D COMPtCTgO OR M FXtLEO 



(OOfXO) 



CO 



FILL CHAR TO M 

FTRN ADR / X TO RIB-'SX) 

STEP COUNTERS 



OX -~ ODXD 
OOOX 

B LLBI4I 
B U^W #--<l 
C S03»tE 

EDITFAT 0 

TEST V HEX VALUE 
IF eot OO^AB 
IF JXf OX^JB 
IF agf XO^AB 
IF OTHERt XX^AB 

SOURCE BYTE TO MyR 
FOR ZERO TEST 
BR EBIT STATS 



SIGNIFICANCE START 



OX ODSX 
E XXXX 
B UB^U 
B E^WL UR^Vm 
B W^MHBCEtl 
C X^LSGNS 
R WR«0 

AtTER^EJlT IF 

ZONE^COOE aIHd SOURCE 
DIGIT TO n 
TURN mjL SIGN STAT 
BR ON DIGIT • 0 



DIGIT NOT m 0 



DIGIT SELECT 



00 

•€ XXIX 
B UB>U 



OD30 



Kit) 



ODBC 



OX — 
0X00 
R^RX3 
HOTXtG-X 
LBfHB/X 
W$2^LSA 

sosIe^xksgn 

" "1B3 L8«3 




1 

SON 
•3 



nm On non-zero sta' 

FTRN ADR / X TO 
RCS«-3X)t THEN R ( 
TO WS2 

STEP COUNTERS 



BRANCH ONi* 

-FTRN FIELD COMPLETED OR M FILLED 
HiEXT SmiRCE ^6 RiCIIIRED 



I 

A 



XX 



ODBE 



DIGIT 



R mmO 
N3— *X •MtfC 
ALTER EMIT IF 

ASCII BIT m 

Ztm CODE AND SOURCE 

DIGIT TO M 

BR ON DIGIT m 0 



R*RX3 
MD«F^U 
U#W 
^♦MMB 
HOTXfO-X 
UfMB/X 
GZ/MB3 LB«.3 

FitL tmn TO N 

PTRN Ai:i* / X TO 

RtO<*3X) 

STEP COINER 



■■OPZO S - " ^-' — JE E 
(OOfOXfXOfXX) 



B 

HI 
D 
D 
R 



P 
2 
0 
3 



tS4760 



09/20HS 



MACH 

mm 

MODE 
P«N# 

IHM CCmP. 



C20S0 

MANUAL 
53647!IB I 
SDD I 



DATE 
LOG 



X0/014«5 
902 



SHEET 
VERSION 



X QP203 



FD|T» EDIT AND MARK (ED» EDMK) 
Plr^ DiGlTa S (TF 



<XX) 



Fset0 SgpARATOf? 



10 003$ 

t ion 

-0 HOn^AWHKH 
C E^S03 



A3'''*''* XX •'■■'^(i 

pim AoiH-x 

TO «(a-3i)# 
TN ON STATO 

OFF STATl 
<MOI\>»«l«0)t 
TN OM $TAT3 
<JHt TO WIGHT) • 



XX — 



0D»4 



G«»l 
C 02WS6NS 

^^^•■piw ''^''0 """'A) J 
FXU CMAR TO « 
TN OFF t SXON STAT 



if? ON FTRN FXetO COMPtCTiSO OR M II6A0Y TO STORCO 



aF209«ACIH« 
(XX) 



I MESSAGf 



MESSAGE XMSERTZON 



111) 



ODIF 



B UB^U 

B y#tf I 

C S03tiE 
n BO(A»0)^B t 
n iOlTFAT 0 j 
Ul— «* --slA 
TEST V HEX VAtUE 
IF eot OO^AB 
IF 21 # 014AB 
IF 22« lO^AB 
IF OTHER* Xl*AB 

SmMCB BYTE TO WVR 
FOR ZERO TESTS 
BR ON EBZT STATS 



SIGNIFICANCE START 
OR 

DIGIT SELECT 



HE 0001 
A R^R13 
0 HOTlf0-l 
fi MB+l^ 
C $030e 
R G2/MB3 0 



NO CHANGE TO FTRN 
FTRN AOR / I TO R(B-3l) 
STCF COUNTERS 



-oFao 

(OOtlO) 



01 0D3S 
-€ nil 
B tLB^U 
B E^WL UR^WR 

B \ttmmi€f} 



R WRiiO 
vl3-— *X 
AtTER EMIT IF 
ASCII BIT ON 
ZONE CODE AND SOURCE 
DIGIT TO M 
BR ON DIGIT m 0 



DIGIT NOT 



OX — 
0100 
R*R13 
HOTl%G*l 
tB*MB/I 
S030E 

G2/MB3 tB»3 



0D6D 




INDICATE DIGIT WAS 
NON-ZERO 

FTRN ADR / I TO R(8-3l) 
STEF COUNTERS 



BRANCH 0N« 

*f>TRN FIEUD CCm.ETED OR M FILLED 
^-NEXT SOURCE WORD REOUIRED 



-'OPaOS* 



-JEE 



<OOfOl«lOill) 



DIGIT m 0 



IX 



A R*Rl3 

D 

D 

R GZ/M83 LB«3 



HOTlfG-^l 
LBfNB/l 



0D8F 



FTRN AtW / I TO R<8-31) 
STEF COi^TERS 



F 
Z 

I 



I MACH CaOSO j DATE 10401+45 SHEET I QF^KH 

Sf547$0 1^21+64 NAME LOG ^2 VERSION 

0^0465 MODE HANUAL i 

F^N» S3M799 I , FDJT# FDiT AND MARX (ED# EDMK) 

I im CORF* SOD I RlAHT SOirRCF DlGlT« S ON 



(OOfXO) 



aP202«CC|>- 
(OPflO) 



ag203»fCD- 



1000 



003C 



apsBOP*! 

(00«01«X0«U) 



aP202«M6S« 
COOtOttlOfU) 



XX -MSA 



i»Tm ADi^i TO %tm 

TURN OFF SoURCe WRO 
RCQUXRiD STAT 



t00«0ll«l0«U) 



STORi REOUIREe AMD 
SOURCE FCTCH ROD 



COOtOltlOfUl 




£ 1000 
A R«l*A 
S470C 



0D3F 



XX — JA 



XX 

A f^mBS 



0DB7 



■"CM*S20I>"" "" " ""©^ 

TU ll«D ROUTXNi 



FTRN FXeLD NOT 

cOMFteTeB • fctch 

NEXT FTR WORD 

OX mmm 0090 

e 0000 ^ 

A R*A 

c e^Bs 



N6XT SOURCE DXOZT 0^ tfFT SIDE OF BYTE* I SXON OFF 



ax<o 

E3— 



♦X «^C 



C E^B 

C E4^ 



XX —ED 



XX 
D^M 



R 0 
ES-^ 



0DB8 



S4 
0» -^E 



COWjETEO BYTES 

BR ON FTRN FXELO 
COMFUETEO 



NEXT PTRN W 
ADR TO SAR 



NEXT FTRN WD TO m 
BR ON NEXT SOURCE 
WORD REQUIRED 



■Q!F200"''^ JCE 

(00) 



NEXT DIGIT ON RIGHT 



U SIGN OFF 



"QP20; 
<X0) 



NEXT DX6XT ON UFT 



L SXdN ON 



00 



0D3C 



FTRN ADR-X TO 5AR 
TURN ON SOURCE 
REOUXRED STAT 



l.^B$4iNB 



MMB<^V 



*4y20 3 - " iii»»w i ^ CE 

(OX) 



R USGNS S3 
PATTERN BYTE 

TO mkn^ 

BR ON L SXON 
STAT AiSO JHt STAT 



■^wMiwO 




NEXT DIGIT ON RGHT 



L SIGN ON 



OX 



0D3O 



01 

WSl^LSA 
R^tS 



003D 



SOURCE FETCH ROD 
ODB? 



XX 

•€ lOOO 
A H+4^Rf AN 



N3«* XX -^NC 



TiWC^ARXtY 
STORE ADR# 
IN R TO WS1» 



R AQCBsO)^A 
R SO SS 

i(0 



NO XV AOR TRAP 
ADR OF NEXT 
0P2 WD TO SAR 
BR ON DIGIT 
USED STAT AND 
INVALID ADR STAT 



^ XX 
E OXOX 
B 

W#f4D^F 



- 0D3B 
E^WR 



WSXKSA 
I. LS^R^tS 

k IVA_ 



UPDATE (^a ADR 
XN Ht 

FETCH OPX ADR 
TO R« 

BR ON INVAtXD 
W»2 ADR« 



I 



XO 



OD0A 



■-qp204 " '-'i- i sm 

cxx) ♦ 



D D*L 



OS*-** ox « 

GO TO INVALID 
ADR INTERRtJPT 



*SE 



A 
I. 
t 
C 
R 



0 
P 
Z 
0 

s 



XO 0D3A 
XOOO 
H+4*H 
WSXKSA 

IVA , 
X* ~SF 
LIKE 1^ 
ALSO TURN OFF 
DIGIT USED STAT 0« 



UT— XX —NO 

NEXT soimce wo to t 



PROCeSS NEXT PTRN 
CMAR 

XX 0DB6 
! » ! 



n 



■opaoo- 

(00) 



R tS^S 0^^ 



XI - 
0*********^ OlOO 
A OK 
1 

C S47QE 



ODSi 



^7— XX --"SG 
TN ON INVALID 
OPt ADR STAT 5» 
2ER0S TO U 



PTRN CMaR TO MVR 
TO SET EDIT STATS 
Bl^ ON L SIGN 
FC^CE Bi»0 AS NEXT 
SOlflRCE DIGIT m$r BE IN 
rm LEFT DIGIT POS OF 
im NEXT BYTE 



-aP202« 
(XO) 



-QT3X0 
(OX) 
TO INTERRUPT 
RC^TI»^ 



1^740 
«f4772 



X24^X/M 

oa+as/^ 



HACH 

mm 

MODE 
Pi»N« 

11^ CORP« 



C20S0 

MANIIAL 

$344600 

SDd 



DATE 
LOG 



lOtOX/65 
902 



S^€ET X 
VERSIC^ 



O^^OS 



EDIT* FDIT AND MARK (FD« EOMK) 
STORF^FETCh PTRN^SOURCE 



amstgc g ■ '" »» t ti*ft*t$ 



(XX) 



« SO S5 ^ 

FCTCH HARK AD*« 
TO R FROM WS2t 

0R oi« useo 

STAT 0 AND 
IWUkW AOR 
STAT St 



SOURCE WAS GTff 
THAN ZERO 



OX ^ 
^ 00X0 
C E(23)^CR 



00*5 



S7 ^ 
X* -ME* 



EOIT 



XO 



0D94 
I*" 



2 TO CONO REO 

BR ON EDIT AND HARK 



L WSfE^tSA 
L LS^L^LS 
S XA/0t2*A 
C e*S47 
R l-^BTCH 

EXCPN0XA(30)^A 

ExCPNOTiA < 30 ) tREF ) #8 
DO NOT CHANGE GRX 
RREPARE FOR SPECIAL 
ENTRY TO |«4?ETCH 



imOT X X 0*'^«>^»i^"^w C DD 
(OOfOlfXOfXX) 

TO 2ND eras 

OP I^^ETCM 



01 — p 0D4 
PNtJKSA 

tsH.n.s 

AO(S«0)^A 

tSGNS SX 



JX— 



GEN REG PEft J TO 
L REGt BR ON t 
SIGN STAT AND 
N0N-2CR0 STATt 



10 — ^ 0042 



L PNtUKSA 



R AQCB^OI^A 

n LSGNS 



NI- 



SI 



LIKE ABOVE* 



SOURCE WAS ZERO 

3,0 — 0D4^ 
E 0000 
C E(23>^CR 



EDIT AND HARK 



J2*** 



S7 

xui 



0 TO COND REG 

W ON EDIT AND HARK 



SOURCE 
THAN I 



E OoJx 



0D47 



XX 

R-X*tX3 

FNfU^tSA 

L^US 



0D95 



KITX 
(XX) 

TO I-f ETCH 



XX 



REDUCE R(0-3X) BY 
X AND STORE RESULT 
TOGETHER WITH ORIGINAL 
0RX(0-"7) IN GRX 



N2— 



S7 



X TO C€»VD REG 

BR ON EDIT AND HARK 



GO TO INVALID 
I ADR INTf«mFT 



XX • 
OlOX 
B E^WR 
B W#HDfF 



0D43 



«^T3lO-%. 



(OX) 
TO INTEJ^IPT 
ROUTTNt 



0 
P 
2 
0 
6 



SX- 



OX ->-SA 



\ MACH C20S0 
2547^0 X2+2X/64 I NAME 

2S4772 024t3/$S MODE HAftftlAL 

IK5S449 0^0/6S I P»N. 5344aOX 

I TBM CORP* son 



DATE 
LOG 



X04OX/6S 
¥>2 



shect 

VERSION 



S 0P20|^ 



EDIT. PDTT AND {PO* PDHK) 

SFT COND RPG» im 1 



(OOOIXX) 
F«OM XHFCTCM 



OPS 

i<r opi Aim 



Ei^ teVEt IH»ttTC*l FMNCTIOW BRANCH 



0 
L 
t 

c 



«OVe NUWCRXCS 
OOOIXX 0604 

e Olio 

WSl^USA 

EU3)^WPN , 
CI**- XX -^A 
ZgROS TO P TO 
lN0ICATe movc TYFC 
XW5TRUCTI0N, 
3 TO HO TO INOXCATC 
INSTR IS NOT Move 
CHARACTKRS 
SET MOVfR PN REG 
TO MOVE NUMERZCS 
0P2 ADR TO SAR 
OPl ADR TO U 



MOVE (CMAWACTERS) 
OOlOXX 0608 
E 0100 
A t^A 

0 O^MO 
t Vf$lH.$A 

C E(13)^WFN ^ 

XX •m:^ 

ZEROS TO P TO 
XNDXCATE MOV£ INSTR 
0 TO MD TO INDICATE 
MOVE CHAR ji5sTR 
SET MOVER PN REG 
TO MOVE CHARACTERS 
0P2 ADR TO SAR 
OPl ADR TO t 



U 



I t 
( MOVE ZONES I 
I OOllXX — 060C I 
E OlOl 
A t^A 
•B WR*P 
0 3-^MD 
t WSX*LSA 
I. tS^L^tS 
C EtX3)^WPN ^ 
OS-*- XX — CC 
ZEROS TO P TO 
XNDXCATE Move TYPE 
INSTRUCTION 
3 TO MO TO INDICATE 
XNSTR IS NOT MOVE 
CHARACTERS 
SET MOVftR RfcO 
TO MOVE ZONES 
OPS ADR TO SAR 
OPl ADR TO t 



AND 

OXOOXX « 
i i 0010 
« A t*A 
U^rn^ 3«MD 
L WSl*tSA 
L LS^UtS 
C EilSD^WPN 



0610J 



I t 



C4--« 



XX —CD 



OliOXX ~- 0618 
E 0001 
A t*A 

3^MD 
t WSl^tSA 

C luSHWPN 
C5-^ XX ^E 



PR 



I exausxvE 

i OlllXX — 

1 E OOll 
A A 

ym^t> 3^MD 
U WSl*LSA 
L tS^t^LS 
C EU3)^WPN 
C6«^ XX 



061C I 



XX 
0100 
D*R 
3*MB 

W$«E#t$A 
R*tS 



0646 



00 



0694 



continuc TO prucess 



XX *--CG 



3 TO MD TU INDICATE 
NOT MOVE CHAR XNSTR 
SET MVR PN TO AND 
OPZ ADR TO SAR 
OPl ADR TO t 



3 TU MO TO INDICATE 
NOT MOVE CHAR XNSTR 
SET MVR PN TO OR 
OPZ ADR TO SAR 
OPl ADR TO t 



3 TU MO TU INDICATE 
NUT MOVE CHAR XNSTR 
SET MVR PN TO XOR 
0P2 ADR TO SAR 
OPl ADR TO L 



1ST (^Z WORD TO 
R« WS4 

3 TO MB POR USE IN 
NEXT MXCROXNSTR 



aJ»*M MMB4V 

W^MMB 
0-1 

tB«Mi/l 
l^BS^MB 
MBiiS LD«3 



B 

D 
D 
C 
R 



PROCESS A BYTE 



ADR TEST 
^XX 064A 

BC8 

MMBtV 
VR^WR 

W6m.» 

MOTl^ADDER 
E^SOS 

6l*** XX mmQfk 

M<0P2 m) - t<OPl 
ADR) TO Mf SAVE 
CARRY OUT OP IPOS 8 

to SITS OP M< INITIAL 

0P2 BYTE ADR) TO tS 

TN ON ZERO STAT 



XX 064e 
E 0100 
A URfA^- 
■» MMB^V 
B VR^WR 
B W67*MB X 
t WStCKSA ^ 
L USH^^LS 
R CSTAT 0 ^ 
02~ *0 •wKSlI 
OPl ADR Stm% R 
1ST 0P2 WORD TO t 
to BITS OP M(ADR 
DIPPERENCE) TO MB 
POR 3RD ADR TEST 
BR ON RESULT OP 
1ST ADR TEST 



0P2 ADR » OR OTR THAN OPl ADR 



NOTE«» 
Xr Of^lXS^OREATER 

Je^NCe IN M IS^XN 
as COMPL PORM 

IP icmi^zui M 

CONTAINS ALL ONES 
BUT CmY M<30f3l) 

ARE SAveo IN MB 



(OPl ADR 0P2 
ADR) GTR THAN 4 



0P2 ADR LESS THAN 
OI»l ADR 

PERPC^M 2ND ADR TEST 
OO «M 06S0 



M/4*T 
BC8 



1^*— d (OPl ADR - 0P2 ADR) 
T - • OR LESS THAN 4 



DepINITWS 
CASE I (STAT 



% 
P 
8 
0 
0 



CAse 2 (STAT 2)- 



ovim.AP 



CASE 3 (CA«RY 
STAT I 



ZERO STAT (SO) - 
m COUNTER 
P REGISTER 



MORE THAN ^ BYTES* BOTH PETCH AND STORE 
REOUIRED ON ENTERING MAIN LOOP-- 
(OPl ADR - 0P2 ADRI « 4N* N f\K)T • 1 
4 OR LESS BYTES, SI^«JI.TANEmi$ PfTcH AND 
STf^^E REOtilffD- 

(0P| ADR ^ 0?2 ADR) • 4Nf N NOT « I 
(OPl m • m ADR) « U 2« 3, OR 4 
A SPECIAL ^Oy^XNE IS USED POR THIS 
CASEt NOTE jm \mm ARE I^T PETChED 
PRI^ MAIN STORAGE APTER THE INITIAL 
PETCH 

A SPECIAL OVERLAP CASE WHERE 

(OPl ADR - 0f*2 ADR) • I 

NOTE THAT T^ Cmm STAT IS INITIALLY 

USED IN ADDRESS TESTING AND THEN USED 

IN THE OVERLAP RmiTI^H! TO INDICATE 

CASE 3 

INITIALLY mm TURNED OPP IP A NoN-«ERO 
BYTE IS STORED PRiOR Tn TiC PINlU. STORE 

MD • 0 INDICATES MOVE fCWRACTlRSl 
INSTRUCTTHN. IS BEING PERPGI^mED 

P « 0 INDICATES MOVE TYPE InSTUCTXOn IS 

BEING p^nfmmnm tested at end of 

PROGRAM to DETfl^lNE WHETHER CONDITION 
CODE SN3ULD BE SET 



R I (CAR) 

SAVE CAR PROM 1 
2ND ADR TEST- 
(4 ADR DIPPERENCE) 

NOTE- 

M CONTAINS TWOS COMPL 
OP (OPl ADR • 0P2 ADR) 



* VrapKING STORE 

S4S X ^ ORIGINAL OPERAND I ADDRESS 
WS 2 * ORIGINAL OPERAND 2 ADDRESS 
WS 4 - 1ST OPERAND 2 WORD 



j> STATS 

STAT 0 - ZERO STAT 
STAT i m CASE 1 
STAT 2 • CASE 2 
CARRY STAT« CASE 5 



NOT OVERLAP 
10 ^ 



CASE 
' 06S2 



0''''%iiI'''%h#'%iiII'''Im 



SAME BRANCH AS PtAS3 



R3*U 
U>W 
W674MB 
D^M 
G<4 



G9-^ 



GO TO MAIN LOOP 



ox 



0631 



1ST OPl WORD TO M 
SET MB m isT OPl 
BYTE ADR 



OVERLAP CASE 

I II « 0653 

B R3^U 
-*«HS U*W 
B W67^MB 
D D^M 

R MB»3 0 

L5«^ j>0 — LE 



3RD ADR TEST- 
TEST POR CASE 3 
SEE NOTE UNDER PLA3P 
IST OPl WORD TO M 
SET MB • 1ST OPl 
BYTE ADDR 



GO TO END ROUTINE 



A R'l^H 

B LLB^U MMB^V 
B T*W 
B W#MMB 
D (^X 
D LB*MB/l 
L WS2KSA 
L LSWLS 
C 16B$IKMB 

PROCESS 1ST BYTE 
OPl ADR TO H 
0P2 ADR TO n 
BRANCH ON 

PXLLEDf OR 
-4LL BYTES IN 
L PROCESSED 



IX — • 0833 
R*H 

LLB#U MMB4V 
?*W 
W^WB 

O^X 

LBfMB/1 
WS2KSA 
LS^R^LS 
l^BS^B ^ , 
mms LBiiS 



''P'**""0 ^ 



STORE OPl WORD 

10 06S6 



A H#A 



B 
B 

B 

D 
D 
L 
L 
C 



(ix} 

TO MAIN LOOP 



IX — 
OPl ADR TO SAR 



PETCH WEXT 0P2 WORD 
Ol ^ 06S5 



L EXHAUSTED 



A R/46RfA 



PROCESS 1ST BYTE 
OPl ADR TO H 
0P2 ADR TO R 
BRANCH ON"* 

BYTES REMAINinKJ 

IN »is,J^. 
-AU BYTES^IN L 
PROCESSED 



L9^ 11 -^X 
NEXT 0P2 ADR TO SAR 



M PILLED AND 
L EXI^USTEO 



PETCH NEXT 0P2 Wl^D 
AND STORE OPl WORD 

It mm^ 0657 
E OlOO 
A R44*R*A^ 
— C S03QE 



MAIN LOOP 



11 



NEXT 0P2 ADR TO I 
SAR 9 R« WS4 t 
SET STAT 1 TO INDICATE 
STORE ALSO RECWIRED • 
(CASE X) 1 I 

M WW M m wmm III ■>■> 'I I m m m m0> « ^m0i n m mm\ 1 



BRANCH ON (OPl Aim ^ 0^2 ADR) • U (CASE 3) 



gB3 0w i w i H" <ii L (5P 
(00«Ol«lO<»ll) 
TO END ROaTll« 



(ooaoi ^ 

TO OVW.AP 



RCHJTINE 



^ MACH C2050 
254760 124^1/64 I NAME 

25S449 0#20/65 \ MODE MANUAL 

P«N« 536480? 

IBM CORP» SDD 



DATE 
LOG 



104^1/65 
902 



SHEET J QP800 
VERSION 



tC^lCAL AND MOVE INSTR (SS) 
Af^ TPSTS© INITIALIZATION 



WOT MOve iwstr 



xo 

E iOOO 



SZ 



0^3A 



«^ Aim 

H» ADR 



ROUTIIC 




R T2i^BS| 

NEXT OPX ADR TO SAR 
TEST F0« NOirXERO 
BYTE STORED IN 
OPl PZELD 



NEXT O^X WO TO « 
TW ON SQ TO XNOXCATE 
NON-ZERO BYTE 5TO«E0 
BR ON 0P2 FETCH 
ROD (CASE 2) 



BRANCH ON 
•ALU BYTES RROCESSEB 
«U(ST BYTE XN t PROCESSED 



00 TO 



END ROUTINE \ j 

D 0>M 

i 

R S2 



063B 



X 



NEXT OPI WD TO M 
BR ON 0R2 FETCH 
ROD (CASE 2) 



BRANCH ON MOVE <CHAR) XN$TR 



NOTE « OR! FETCH NOT REOUIRED FOR MOVE INSTR 



100^ 
HH*H 

UB^U MMB^V 



060D 



00 



0680 



FETCH REOD 
OR NOT MOVE 
B-WVE (CHAR) 



0*1 . 
LBfMB+l 

E<#BS 

BQIA«I)^B 
. CK4 tB»3 ^ 
J2~ «W» 
PROCESS A BYTE 
OPX ADR / 4 TO H 
BRANCH 

H.A$T BYTE OF tt 
"4 OR LESS BYTES 
RgSlNiNG IN 
0P2 FX©LD 



i RH*Rf A 
B UB^U MMB^V 

B nw 

B W^MMB 
D 0-1 
D tB«MB/l 
C i^BSiJWB 
R A0(Bn)^A 
R 0 L8«3 

PRCKESS A BYTE 
NEXT 0P2 ADP 
TO SARf R 
BR W UST 
BYTE OF t 



FETCH NEXT OP5? WD 
01 — 06dr 



B 



00 



0664 



ULB4U HMB^V 
?*W 
W^MMB 

tB«MB/l 
XtBS#*B 
1 UB«3 

1* — ^fi 



r-4 

B 

§ 

D 



10 



0666 



PROCESS A BYTE 
BR LAST 
BYTE OF t 



UB^U 

W4MMB 
D^t 

LBfMB/l 
l^BsiMB 



MMB^V 



IX 



PROCESS A BYTE 
fCXT 0P2 WORD 
TO t 



XI 
D*t 



0687 



CASE 2 

FETCH wexT tmz WD 

II — ^ O6OF 
~€ 0000 



N3-^ Xl — NC 
tUPZ ADR / 4 TO SAR, R 



❖0 



00 



0688 



UB*U MMB*V 
?*W 
W#MMB 

MB*3 X 
♦X 



jji— i"" B 



ox 



0689 



PROCESS A BYTE 
BR ON M FXtLED 



H*A 

UB^y MMB^V 

T#W 

W^HMB 

G-X 

LBtMB/X 
X*BS#IB 
MB»3 



OX 



0638 



PROCESS A BYTE 
OPX ADR TO SAR 
BR ON M FIUED 



STORE OPX BYTES 

XI 088B 



A H#A 



B UB^U MMB^V 
B t*W 
B W^HMB 

O.G-X 

XX --gn 



PROCESS A BYTE 



•1 



IX 



0637 



A M^D*BS 



A H44*H 
< E^BS 



-R 8Q<Api)^B 
ft SX 0 ^ 

^ *M«E 



NEXT 0P2 WORD TO L 
BftANCH ON CASE X 
<CA^ X BR TAKEN 
ON FIRST PASS IF 

( ST^REOD) 

Y ""II ' ' ' " 



N7«i»^ |X •HVO 
OPX AI^ TO SAR 



mmQmmm^ Aa(B«0)l^A 

R 0 mmo , 

STORE COMPLETED 
OPX BYTES 



0P800»tIE« 

Txx) 



OP800*OI& 
(XX) 



^42— OX "«0B 
OPX ADR / 4 TO H 



H^83 
(OX) 

TO END ROUTINE 



»» i uj i r'%iw > "''< i #'rt,,ii'>iin»>.i.' '' ''%H> i 'fW'^%^ i > ' i»i.#^" i '» 



a 
p 

8 
X 
0 



2S4780 
2S»44<? 



X:H'2tf64 



HACH 
NAME 
MODE 
P«N« 

11^ CORPo 



C^SO 

MANUAL 

5364803 

SDn 



DATE 
LOG 



X04OX465 
902 



SHEET X 
VERSIW 



(»>8X0 



LOGICAL AND WOVE INSTR 
MAIN LCX3P 



(SS) 



WOT CASe 3 



COOflO) 

resTS 



t- 1ST WORD 
R** t»>l ADR 

IST CTi WORP 



BRANCH ON C^SC 3 



T 



CASE 3 



10 



0692 



R#R 

02/HB3 3. 



♦0 

I 



RROCf SS A BYTi 
0J»1 APR t I TO R 
BRANCH ON 



H^AST BYTE OF 0P2 PlEUO 



CASE 3» COPl ADR 0F2 ADR) » 1 



00 



0690 



B 
B 



BCIB 

ttB^U MMB^V 

nw 

Wi^fiHB 
D H0Tl»6*Jl 
0 tBfMBfa. 
C 1<»B$MB 
R Ba(A«l)^B 
R GZ/MB3 tB«p3 ^ 



SAVE CAR From I 

BLOCK CAR FROH 6 
PROCESS A BYTE 
OFl ADRfX TO R 
TURN OFF CARRY STAT 
TO INDICATE CASE 3 



0F2 FETCH REQUIRED 
01 0691 



A M*L 



R CSTAT 0 

«0 «»"*JD 



NEXT 0P2 BYTE<S) TO t 
BR ON CASE 3 



OFl STORE RE(^IRED 
ll 0693 



HOVE (CHAR) I 
OPl FETCH NOT ROD 

XI ~» 063F i 

O 



R^I^A 
B HDfF*U 

B \mm 



1 



06BD 



CURRENT OPl ADR 

TO SAR 
W^mtH ON 0F2 FIELD 
COMPLETED 



MD»0 



E 000< 

A ¥^tm% 

^ E^BS 



R CSTAT 
J6— ^0 



COMPLETED OPI BYTES 

TO SDR 
BR ON CASE 3 



NOT MOVE 

FETCH I^XT OPI WD 
XO 063E 



I 

A MI'D^tBS 



XX 



~1' 

N7' 



XX 

E 0000 
A R^A 
E4BS 



0651 



TZ*BS 

w urn 



XO ^ 

xooo 

D^M 
S03mE 



06B4 



CSTAT 0 

ifliO «^H 



NEXT OPl WORD 
INDICATE NONZERO 
OPl BYTE STORED 
BR ON CASE 3 



Xi 
D*W 



06B5 



— N6 



R CSTAT 0 

♦0 —iNH 



0P2 BYTES TO L 
BR ON mm (CI^R) 



Ccm^ETED (FI BYTEs 
TO SDR 



NEXT OPl AW 
TO SAR 

JEST F0« WCW-2ER0 
YTE STORED 



NEXT OPl WORD 
BR ON CASE 3 



ALL 0P2 BYTES PROCESSED* Of! TO END ROUTINE 



1111 
TO EWD ROUTIHE 



P 

a 

2 
0 



MACH C2050 

2S4760 12/2^4 1 NAfC 

25S449 09/20+6S I MonE MANUAL 

I P*N» 5364d04 

I TBM CORP* SnD 



DATE 10/01465 
LOO 902 



SHEET I 
VERSION 



OI»B20 



LOGICAL AND MOVE INSTR 

OVERl AP ROUTINF 



(SS) 



1^ tan m 

IF* 



TgST 



00 



oe9# 



-6 



PROCeSS A BYTC 
iRANCH Of^lf* 

n,AST BYTE PR 
H rZttEO 

-CAST BYTE or t 



FROH MAZN LOOP 
CASE 2 



(ogfOiaoai) 
FRW MAIW uoo»» 



FETCH NEXT 0P2 WORD 
01 mm^ 0695 



R/4«RtA 



02-^ XX — GB 
0P2 ADR f 4 TO SAR« R 



^0 0*L 




00 

NEXT 0P2 WORD 



ill) 

fr8w oveRtAR 

ROUTIWE 



STORE COm.ETED BYTES 
I 10 0696 

A H*A 

B UR^WR 
R BOtA*X)*B 0 
R GKO 0 ^ 
t2«%« }Nt **-tB 

ORl APR TO SAR 
F TO MVR LTH TO 
TEST FOR too TMSTR 
BRANCH OUT |F AU 



§ASE 2 
TORE CCmtTEO BYTES 
11 0697 I 
E 0010 1—0 
A H#A I 
—HI M0fF#U 

B UR^^ 
C S03OE 
R B0«A»1UB 
R OKO 0 
Q!2*-» JNi *«-C|B 
OFl ABR TO SAR 
F to MVR tTH TO 
TEST FC^ tm INSTR 
TN S2 FOR CASE 2 
BRANCH m XF AU 
BYTES RROCESSEB 



LFiaO COMPtETED 



A M^WBS 



4n< 



R AO<Bn>*A 
R SO WR«0 



STORE COm.ETEO BYTES 
BRANCH ON 

-NO 2ER0 BYTES STORED 

PRIOR TO THIS STORE 
«4.00XCAU XNSTR 



FIELD NOT COMPUETED 
J 00 — 06BC 



A II^O^tBS 



R AQCBmOHA t 
R S2 m«0 1 



&3mXttm QPl BYTES 
TO SDR 



a 
p 
i 

3 
0 



NOT tOOlCAt XNSTR_ 
DONT CHANGE CMD CODE 
II 069B 



1% 



XN OPl Fxao 

00 0698 
OOOX 
C E<23>^CR 



PREVXOUS OPl BYTES 
WERE ALt ZEROS 
TEST BYTES NOW BEXNG STORED 
10 — ^ 069A 



L 



IX 



01 TO PSw(34t35) 



0 
I 



R 0 
L6*^ 



r2MS 
0* -"^F 



AU. ZEROS STORED 
XN OPl FlEtD 

01 0699 

E QOOO 

C E(23)*CR 



|^0MM» IX *«HLH 
00 TO PSWC34*35) 




-«T100- 

(XX) 
TO X-FETCH 



-CHE 



BRANCH ON"* 
•CASE 2 

XNSTR 



•OPBIC 
(01«10*1X) 



2S6760 
28IS469 



ol^otJs 



HACH 
NAHE 
MO!^ 
P#N« 

XBH amm 



C20S0 

MANUM. 

536480S 

SOD 



DATE 10/01+6S 
tOG 902 



SNtET 
VERSION 



X QPB30 



XCAL AND MOVE XNSTR 
:ND ROUTT NF 



(SS) 



(llOOXX) 



IIPOXX « 

e 0000 

A R^A 

u>m0c e^so3 



0630 
I 



XX -KJA 



UPX ADR TU $AR 



S 

0 



IHAWStATE AN» TEST 
XXOIXX 0654 
E 00X0 t 
A R*A 

C E^S03 



PKei»AWC W» AWO 
AI)R FUR U^t IN 



L, 



OPX 



XX 

R«X^W 
R3*U 



0685 

i 



J 



XX 



XX 



0»*X ADR TO SAR 
2 TP J(TQ ADR GR2^ 
TN UN S2 TO INDICATE 
TRANS AND TEST 



0»*X ADR I TO R 
0*»X BYTE ADR TU MB 



FETCH BYTES TO BE 
TRANSLATED 

XX — 069F 

£ 0X00 

A H4A 

D MOTX^ADDEH 
C S03«*lE 



t5^ 



XX -^E 



XX — 
-C 0X00 
D D<^t 

W$9fcttSA 
t L4tS 



1^6*^ 



00 



068A 



OPX ADR f X (NEXT 
ORX WORD^ TO SAR 
TN OFF FETCH REOD 
STAT 



OFX WORD TU 19 WS3 



xo 

Mflp*t«A 
34LB 



069E 



63-^ 



XX — GC 



TABLE BASE <L) PtUS 
ARO BYTE(M) TO SA««t 
3 TO LB 



XX «^ O60E 
E 0000 
B tLB*U 
-^B U*W 
B W67*LB 
D D*L 
D G-X 
C E*BS 
R AQ(B«05*A 
R G2/MB3 S2 

FUNCT BYTE (FROM 
TABLE) TO L 
FUNCT BYTE ADR 
TO LB 



TRANSLATE 



06X2 




B LLB^U jOi^HP 
B U*W 
B W^MMB 
D HOTX^ADDER 
C X^BSiOiMB 
R GX<0 

GS— »X — GE 
□FX ADR/X TO SAR« 
MOVE FN BYTE TO M 
SET CORRESPONDING 
BYTE STAT 
BR OUT IF THIS IS 
THE LAST BYTE 



TRANSLATE AND TEST 



OX 
0X00 
R^R 
LLB^U 
B UW 
B VtMDfF 
D HOTX^ADDER 
D HB/X 
L WS«E4LSA 
LS*L*LS 



06XX 



OX 



06B9 I 



L2«*» OX •HUB 

OFX ADR / X TO R 
CURRENT OPX WD TO L 
FUNCT BYTE TO MVR ?^0R 
2ER0 TEST, AND SAVE 
IT IN MD AND F 



TRANSLATE AND TEST 
FETCH RiOUlRED 
m FIELD COMFLETED 
XX 06X3 

E 0X00 

A R^R 

B U#W I 
B M*MDtF 
D HOTX^ADDER 
D MB/X 
L W$#E^LSA 
L LS4L*LS 
C S030E 
R GX<0 

to-* *x 

OFX i^m / I TO R 
FUNCT BYTE TO *^Vf R 
FC^ 2E^ TEST AND 
SAVE IN MO AND F 



O^M 
LMB'^U 

Wt?^B 
WS2*LSA 
LS^L^LS 
BO(A>0$^B 
WvO 



I 



NONZERO 

E OOOX 
B WL*J 

LL FN«J^LSA 
L LSK-^LS 
C E(23)*CR 



FUNCT BYTE 
069D 



I 



XX -M.D 



sx 



2ER0S TO Bytes x*2,3 

OF M 

NEXT ARG BYTE TO 
BYTE 3 OF M 
BRANCH ON- 
•ff UNCT BYTE 2ER0 

-OFX FETCH mm 



FIELD CON»LETED 

3tx — « 06BB 
E XXXO 
L WS«E^LSA 
L LS^L#LS 
C E*S47 



GEN REG 2 TO L 

0 TO J (TO ADR GRXJ 

OX TO FSW(34^35) 



N0N-2ER0 FUNCT BYTE 
OX 06BC 
E 00X0 
B WL^vJ 
L FNqJKSA 
L LS*L*LS 
E<23)^CR 



L5— XX «H,E 

GEN REG 2 TO L 

0 TO J (TO ADR GRXI 

10 TO FSWC34q35]^ 



R ¥mO 
03«M» 



9^X oc 



W$X4(0F BUFFI TO L 
AND SET STATS FOR 
I'^ETCH 

BR 2ER0 FtJWCT 
BYTE 



A 

D 
L 
L 
R 
R 



\„ l ift,* ^I W ^iiiFW^^' ^^ f '' "' Wi ' ^ j ^i^ j T^^ 

FIELD NOT COMPLETED 
OX 06B8 
0X00 
M*D#BS 
MBtX 

WS«E*LSA 
LS^L^LS 
BQCA«X)*B 
MBiii3 
G6«*^ ^ ~GF 
STORE FUNCT BYTE 
CURRENT OFX WD TO L 
INCR MB _ 
BR ON OFX FETCH «QD 



FETCH NOT REQUIRED 
00 «^ 069C 

'^A 04M 
LMB^U 

U*W I 
B W^MMB 

L WS2*LSA 
L LS^L^LS I 
G7**- XO ««*«GG 
2ER0S TO BYTES 0,X«2 

0«* M 

NEXT ARG BYTE TO 

BYTE 3 OF M 

TABLE BASE ADR TO L 



XX 



06BA 



A M#D«(BS 



XX 



JTXC 
. CXX) 

TO I-FETCH 



Store last translated 

BYTE 



-I 



XX 



06AE 



A L^M 

M09F*U 
B U*W 
B W^MMB 
L FNtJOl^LSA 
L LSK^LS 
L6-^ XX «^F 
GEN REG (0-23 5 FROM 
L TO M(0-.23$ 
FtJ^CT BYTE FROM MD 
AND F TO M(24-.3X) 
GEN REG X TO L 



XX 
00X0 
R^LX3 
E^WL 
WL^J 

FNWQX^LSA 
L*LS 



06CS 



XX 



06C7 



t7-^ XX «K.G 

CURRENT OFX ADR 

TO LC8-3XH L TO GRx 

2 TO J (TO ADR GR2) 



L 
S 
S 
R 



M*L 

FN^UKSA 

^A^2^A 
SMIF 
I-FETCH 
L8-^ m •--tH 
SUPPRESS MEMORY 
IF OFF BNDS 
AND^^REFETCH^ 
iXCFNQlA(30)^A 
EXa»Na(lA(30UREF)*B ^ 
FUNCT BYTE TO L AND GR2 
I-FETCH ADDf^SSING 
IH«ETCH 4-WAY BRANCH 



•-OTIOS 
<OOfOX»XO«XX) 
TO FREE ENTRY 
OF I-f^ETCH 



Fl^CT BYTE WAS 2ER0 
XX — 06BE 
0000 J** 



E 

s 

I 
I 

R I-FETCH I 
06<«^ ^ «wiwQF 
£XCFNaIA(30HA 
EXC^0(IA(30UREF)*8 
00 TO FSVC34f35) 
I^^iTC^ ADDRESSING 
I-FETCH 4«WAY I^ANCM 



^Txx o m 

(OOfOXfXOtXX) 
TO 2ND CYaE 
OF I-FETCH 



X04OX+65 
902 



^ MACH C2050 DATE 
254760 X2421+64 NAME LOG 

2SS449 09+20t6S MODE MANUAL 

^ F*N* S364S06 I TRANSLATFt 

IRM CORF# S5i I (TRt TRTH 



SHEET 
VERSION 



X QF900 



TRANSLATF AND TEST 



iniOQ mmm, owe 

» V^MHB I 

« |A(30) $7 I 

ADO BASe ADf^ TO 
OISl»tACiMl£NT iU/n 
nr HALF TO tf WS9 

tewTM Fxeto nu 

TO H BYTi 3t 
SST |.i«Of 
XC TO SAR# 



013D 

A Ha3^t 
-HI MtB*V 

B W'^HMB 

D 0KB 

t WSfCKSA 

S Ia/04«^A 
R Afi(Biiiy^A ^ 
R IA(30) S7 

BASE ADR«0« 
XPCR orSRtACBMgNT 
FROM « RT HAFT TO 
L» t TO WSt ^ 
UNOTH FIELD LXL2 
TO M BYTE 3# 
SET LINO* 
ZC TO SAR« 



10 0C#2 

«*R 

MtB^Vl 
VH^WR 

WR#F 
Hi»l 

WSfE^LSA 



L LS4t*tS 



XX --CD 



M CONTAINXNO tEWGTH 
FlEtO IN BYTE 3 TO 
R REO» FETCH OF 
BFR TO L« OF BITS 
4-7 FROW M BYTE 0 
TO Ft OECR MB TO 2 
ZNCR ZAR BY 2« 



00 ^ 0C40 
E 1011 
A M*R 

B VR^WR 
B WR^F 
D HB«>1 
L WSfEKSA 
t RKS 
C ZA/2 

R IVA 

LENOTH FIELD FROM 
M TO R« R TO WSll 
ZMCR ZAR BY 2» 
OECR HB TO 1« 

rBZTS 4-7 FROM 
BYTE 0 TO Ft 
BR ON INVALID ADR 



I 



ON BOUNDS* 



XI 



OCOB 




XX ~- 0C19 
E 1011 I 
A L^^MHL 1 
R3^U 

L W$«E>tSA 
L RH.S 
C BOflSYL 
XX 

L23^XG01 
T^t T(0*3)>MD 
T(0-19)*M 
<B«0)*S1 
SET ISYL 

B2D2 TO MC16-31) 
B2 TO MD 
L1L2 TO G162 
SAVE L1L2 ZN WSll 



XO — ^ OCOE 
E 1110 
B R3'>U 
-B U^W 
B 

D^MHL 
L WStEKSA 
L L>LS 
C BOtlSYL 
GS— XX — GE 
T^L T<0*3)*MD 
T<0-15)*M 
(B«0)Ul 
SET ISYt 

NEXT ZNST WD TO Lt 
L TO t3F BFR {WS14) 
LF SYLLABLE <B2D2) 
TO M RIGHT HALF, 
B2 TO MD« SET G1G2 
TO L1L2 IN R BYTE 3 



MB«1 

WSfE^LSA 
^ LSKH.S 

XX -»-LC 
M CONTAXNZNG LEN0TH 
FIELD IN BYTE 3 TO 
R RiOt FETCH OR 
BFR TO L# OR BITS 
4*7 FROM M BYTE 0 
TO Ft DiCR MB TO at 



OCOA 



XX 

E lOll 
A M*R 



OCOD 



XI 

E OlOl 
B 

W^MDfF 



^ OCOF 
E*WR 



OX -MLE 

INVALID ADDRESS 
GO TO INTERRURT, 



MLB^V 

B w^m 

B WR^F 
D MB^l 
L WSfEKSA 
L RKS 

LENGTH^ (BYTE 31 PROM M TO R TO WSll 
OP BITS ir? PROM M <BYTE 0) TO F 
MB DOWN TO 2 



BR m 1ST SYLLABLE 

ON mmsm 



XX •"■•fliC 



Aim OP NEXT 
XNSTmK:TlON WD TO 
SARt 



XX OCID 
E 0000 

B MHB^V 
•~B UL*WL VR^WR * 
B W^MMB 
L FN«MD<^LSA 
L LS^LKS 
C eU3HWFN 
R $1 

SET MVR FCTN REG 
TO 000 < CROSS-GATE) 
CLEAR B2 OUT OF 
H BYTE 2t FETCH 
CONTENTS OP B2 GR 
TO Lt BR ON B9*0t 



XO 
1010 
M23/L*L 
R3*U 
U^W 
WL^MD 

WSfEKSA 
L^LS 
O^RSGNS 
XX 



0C12 



ADD BASE ADR TO 
DISPLACEMENT <M RT 
HALF /L TO L)t 
L TO WSlOt 
SET MD TO LI IN 
R BYTE 3t SET LB-'S 
TN OFF R SIGN STAT 



BASE AOR«Ot 
XI w 
E lOlO^ 
A M234L 
R3^U 
U^W 
WL^MD 
3^MB 

WS«E^LSA 
LKS 
O^RSGNS 



0C13 



f^^mm XX -%€H 

XFER DISPLACEMENT 

IN M RT HALF TO L 

L TO WSlOt 

SET MD TO LI IN 

R BYTE 3t SIT LB» 2 

TN OFF R SIGN STAT 



XX 0C22 
fi 0000 
A 0*H 

R3*U 
B VL^Wt UR*WR 
B W^HMB 
C E*BS 
E9-%» XX 



XFER L2 IN BYTE 3 
OP R TO RT HALF OF 
BYTE 3 IN M AND 

RESET BYTE STATSt 



-asil0~— «--NZE 
(lOlOXX) AP 
<1011XX> SP 



aoo-%— ««-Nze 

(lOOlXX) CP 



I #» < >1S400 ^ >i»^ N ZE 

CllOOXX) MP 
<1101XX) DP 



6— i ii * .- a S300 -— »-" - N ZE 

COOIOXX) PACK 



XX — 0C2S 
E 1001 T 
A M/L*R 
-~B R3->U U»- 
B VL*WL T^WR 
B W^MMB 
L WStEKSA 
L LS^L-ILS I 
XX — UG 
ADD L2 TO LEFTMOST 
BYTE ADR OF gP2 
(L+M TO R)t FETCH 
LEFTMOST BYTE ADR 
OP OPl TO L CWS9)t 
XFER LI ZN BYTE 3 
OF R TO RT HALF OF 
BYTE 3 IN Mt 



XX — 
0000 
M/LKtM 
R3*U 
U*W 
W67#LB 
WS2KSA 



OCll 



XX --JH 
EFTMOST 



ADD LI TO LI 
BYTE ADR OF OPl 
<L+M TO Lt M), 
STORE R TO WS2 
(RIGHTMOST BYTE 
ADR OF 0P2)# 

0P2 RT 
BYTE ADR IN R 
BYTE 3t 



SSO a ' ' N ZE 

(OOOIXX) MVO 



XX 



occ 



A Rh^A 



NB— 



XX 



0P2 «|CiHWQST BYTE 



XX 
0000 
M^H 



(OOllXX) unpk 



W67*MB 
WS1H.SA 

ptloAR 



MMB^y 
VR*WR 




( y m m fmm0mm^m Q j^y0(j^ ,tm w \tm N IE 

I <1000XX) 2AP 



SET MB TO RIGHTMOST 
BYTE ADR OF 0Pl9 
IN M BYTE 3t XFER 
M TO H# XFER Opl 
RIGHTMOST BYTE ABR 
FROM H TO Lt 



-OMIU 
<OOOOXX) 
(OlOOXX) 
(OlOlXX) 
(OllOXX) 
(OUIXX) 

auoxx) 
auixx) ^ 

INVALID OPS 



IE 



-OTSIC 
<0X) 
TO INTERRUPT 
ROUTIAME 



mach 

S»54760 124^1/64 NAME 

i?54770 024<H/$S MODE 

25S449 094^0/68 1 P<.N* 

i IRM CCmPt 



C2050 

MANUAL 
5364907 I 
SDn I 



DATE 
LOG 



lOfOl/65 
902 



SHEET 
VERSION 



DFCIMAL ARITHMETIC 
SECOND LFVEL I FETCH 



1 OSOIO 



QS010#NIE 

(lOlOXX) 
(lOllXX) 
FROH I-^ETCH 



lOlOXX 

e«E 0011 
D D^L 

L WSfE^LSA 
U L*LS 



C28 



Al— 



XX — -AA 



DECIMAL ADD 
0P2 WORD TO L. 
L TO WS3. 



XOllXX — 
0011 
D*L 

WSfE^LSA 
L*LS 
l^RSGNS 



C2C 



D 
L 
L 
C 
I 

El— 



XX C2E 

E 0101 
A 04M 
DCO 
B LLB-^U 
L WSfE^LSA 
L L*LS 
C IVD/RSGNS 
A2— XX — AB 



Sl^ADDER 
CARRY(0)*S1 
DEC ADD CORRW^L 
IF -f iRSGN 
IF NOT SGNfTRAP 
0P2 SIGN TO MVR 
FOR SIGN TEST# 
INVERT R SIGN STAT 
IF SIGN IS MINUS* 
ZEROS TO M« GEN 
SIXES TO L« WS5. 



XX — EA 



DECIMAL SUBTRACT 
0P2 WORD TO L. 
L TO WS3t 
TN ON R SIGN STAT 



COMMENTS ABOUT STATS USED 

R SIGN STAT - MICRO ORDERS 
SGNR AND SGNRL INVERT THE 
R SIGN STAT STATE IF A MINUS 
SIGN IS DETECTED. R«l INDICATES 
A CQMPL ADD* R«0 INDICATES A 
TRUE ADO« 



XX - 
E 0111 
A H-^RfA 
-B E'^WR 
B W-^MMB 



C31 



A3— 



XX 



C2A 



XX —AC 



DPI ADR IN H TO 
SAR« R# EMIT 0111 
INTO SIGN POS OF 
BYTE IN M» 



M-1*R 
DCO 
R3'>U 
U*W 
WR*F 

H0T1*ADDER 

XX —AD 



B 
B 
B 
D 

A4— 

Sl-^ADDER 
CARRY «0) ♦SI 
DEC ADD CORRN-^L 
GATE BYTE ADR IN 
n BYTE 3 INTO Ft 
XFER M TO R« 
TN ON DEC CARRY 
STAT U 



XX — 
E 1000 
D D*L 
H. WS%E>LSA 
L L*LS 



C35 



XX — AE 



XX — 
E 0101 
A R^L 
'B LMB^U 
L WS«E^LSA 
LS*R*LS 
LtRSGNS 



C39 



A6— 



XX — AF 



XX ' 
0011 
R-4.*R 
HOTl-^ADDER 
WSfE^LSA 
LS^L^LS 
S47QE 



OIC 



A7— 



XX —AG 



OPl WORD TO L« 
L TO WS8« 



IF -fl^LSGNf 
<|RSGN 
IF +fO-»LSGN 
IF NOT SGNfTRAP 

TEST SIGN OF OPl 
(IN L) VIA MOVERt 
SIXES TO R 



R-t TO R TO FORM 
SOURCE OF SIXES 
FOR FIRST WORD 
(SIGN BYTE » 5F). 
TN ON FIRST 
TIME STAT6f 
FETCH 0P2 WD TO L 



XX ^ 
E 1001 
B LLB4U 
•B UL>WL VR^WR 
B W^MMB 
D Git 2-1 
LB«MB-1 
WS«E^LSA 
R^LS 
WL^IVD 
BQ(A«1)^B 
G1MB2 G2LB2 



C4l 



D 
L 
L 
C 
R 
R 



A8— 



—AH 



(Gl«0)Q(MBaO)^A 
(G2«0)Q(LB»0)<^B 



00 



0 ^ 



LLB^U 
U^W 
W-^MMB 
Glf2-1 
LBfMB-1 
W*IVD 
BO(Aal)->B 
G1MB2 G2LB2 
E3— m —EC 
(61=0;Q(MB«0)*A 
(G2=0)Q(LB«0)*B 



B 
-D 

D 
C 
R 
R 



C47 



XFER 0P2 BYTE FROM 
L TO M* DECR LB« 
MBf Glf G2» 



L — 

L— -E 1000 
A M*R 
— B MD*F*U 
B U^W 
B W67<^MB 
L WS«E->LSA 
L LS^L^LS 
E4— XX — JD 
SET MB TO ADR OF 
FIRST OPl BYTE 
(FROM F)t 
XFER 0P2 IN M TO 
R. FETCH OPl WORD 
TO L. 



BLOCK AH - 

XFER FIRST 0P2 BYTE TO M 
ZERO SIGN OF THIS BYTE 
6666665F FROM R TO WS9 



01 — 

0*L 

WS2->LSA 
LS->RH.S 



C45 



G2<0 
1* 



XX CIB 

E 1001 
A L*M 

— -B MDfF^U O 
B U<^W 
B WL^Gl 
D M^l 
L WSfE^LSA 
L LS-^L-^LS 
R MBs3 

E5— «X — JE 

IIMCR MB. XFER DPI 
WD IN L TO M# 
FETCH SIXES FOR 
1ST WD TO L. 
RESET Gl FROM MD 
BR ON 1ST OPl BYTE 
ADR a 3. 



OX 



nE 1111 
B E*WL 



C15 



R 1 
J3— 



FETCH 0P2 ADR TO R 

ZEROS TO L# 

BR ON G2 MINUS* 



10 - 

R-4*RtA 

HOTl-^ADDER 

WS2*LSA 

R^LS 



C46 



XX 

E 0011 
D D*L 
-L WSfE^LSA 
L L*LS 



CIA 



XX —ED 

ADR OF NEXT 0P2 
WD TO SARf Rf WS2 



B W'^MMB 
D MB-1 



E4WR 



R LSGNS RSGNS 
E6— ** — €F 

ENTER FF INTO 
M BYTE TO RT OF 
SIGN BYTE* 
DECR MB* 

BR ON L SIGN STAT 
AND R SIGN STAT« 



IX 
D MB-1 



J5~ 



00 —EE 



NEXT 0P2 WD TO L* 
L TO WS3» 



C17 



R LSGNS RSGNS 



DECR MB 

BR ON L SIGN STAT 
AND R SIGN STAT* 



CBO 



00 - 
1100 
R+L*L 

MMB<»V 
VL4WL E^WR 
W>MMB(E?) 
Gl-l 
MBfMD-1 
WL*IVD 
1*BS*MB 
GIMBZ 
E7— «X — £i 
ALTER EMIT IF 

ASCII BIT ON 
(G1«0)Q(MB«0)*A 



ADD EXCESS SIXES 
TO 0P2 (RfL TO D* 
INSERT BCD PLUS 
1100 (MODIFIED FOR 
ASCII) INTO M SIGN 
DECR MB« MDi Gl* I 
CHECK XST DIGIT 
FOR VALID DEC* 
SET BYTE STAT* 



CB 



1 0.. 

L— E XXOO 
A R^L 
B MMB^V 
B VL*WL E*WR 
B W^MMB(E?) 
D Gl-1 
D MBtMO^l 
C WL^^IVD 
C 1->BS«MB 
R GIMBZ 

E&«. i^iX —El 
ALTER EMIT IF 

ASCU BIT ON 
(G1»0)Q(MB«0)-^A 



XFER 0P2 WORD FROM 
M TO L* INSERT BCD 
PLUS 1100 (MODIFIED 
FOR ASCII) INTO M 
SIGN POSITION. 



I 

B 
-B 

D 
D 
C 
C 
R 

E9— 



OX 



CC4 



V^W 
Gl-1 
MB«MD-1 
W^IVD 
1^BS«MB 
GIMBZ 



MMB-^V 



♦X —EI 



•asii4— 

(OXflX) 



-EIE 



(G1«0)Q(MBb0)^A 
CHECK OPl BYTE FOR 
VALID DEC* DECR MB* 
MDf Gl* 
SET BYTE STAT. 



L — 

I— € llOl 



CB2 



10 
1101 
RH.*L 

MMB4V 
VL'^WL E'^WR 
W^MMB(E?) 
Gl-1 
MBtMD-1 
WL*IVD 
l^BSMB 
GIMBZ 



L7— 



11 
XlOl 
R*L 



CB3 



J>X — CG 



A 

B MMB^V 
B VL'^WL E^WR 
W>MMB(E?) 
Gl-l 
MBfMD-1 
V4.>IVD 

GIMBZ 

I— *X — j 



IX 

I 

A H-^A 



CCS 



I 

R 1 
L9— 



RSGNS 
14e 



-«asii4— 

(10*11) 



-LIE 



OPl ADR TO SAR* 



H 



ALTER EMIT IF 

ASCII *BIT ON 
(61«0)Q(MB«0)'»A 



ALTER EMIT IF 

ASCII BIT ON 
(G1«0)Q(MB«0)^A 



STAT 0 « OVERFLOW OF OPl FIELD* 

STAT 1 » DECIMAL CARRY* 

STAT 2 ■ RECOMPLEMENT* 

STAT 4 « Glf G2 DECREMENTED* 

STAT 5 ■ NON-^?ERO RESULTS* 

STAT 6 m FIRST WORD* 



COMMENTS ABOUT WORKING STORE 
LOCATIONS' USED* 

WS3 s 0P2 WORD 
WS5 « 66666666 
WS6 « OPl WORD OR ASSEMBLED 

0P2 WORD 
WS9 m SOURCE OF SIXES WITH* 

5F IN SIGN BYTE* 
WSll « OP FIELD L1L2 IN 
BYTES 1 AND 3 



a 

5 
I 
1 
0 



258068 
2S8430 



10/20/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P*N* 5469499 

IBM CORP. SDD 



DATE 12/29/67 
LOG 662 



SHEET 
VERSION 



1 (isno 



DECIMAL ADD* AP* SUBTRACT* AP 
FIRST WORD ASSEMBLY* 



<00«01»lO»ll)_ 

* 



main ofe Mssw 



I 



A 
B 
B 
B 

D 

L 
t 
C 
R 
R 

Al' 



00 — 
0100 
R-^^HtA 
UB^U 



I 



Hon^AopeR 

WS2*L$A 
R*tS 

BQ(Aiil)^B I 
OKO LB»0 1 



0C84 00 0C4a 



□•*2 ADR - 4 TO 
$AR R AN0 W$2 
SS OIV TO IWPICATg , 
mr^KW BYTE STORED 
MOVE A BYTE TO H 



ZEROS STORED 

10 0C86 

R-4^RtA 
^ LtB#U 
B U^W 
B W^HMB 
D HOTl^ADOER 
0 LBfW»«l 

t wsSksa 

C V^lVD 
R BQUwll^B 
R GKO LB«0 ^ 

0P2 ADR * 4 TO 
SAR R AND W$2 
MOVE 0R2 BYTE TO M 
CHECK FOR VAtXD DIG 



NOftHJERO BYTE STORED 
ta^Z FETCH REOD 

01 — 0CB5 
E llOO 
A R-<4^R«A 
0—4) HOTi^ADDER 
L W$2»USA 
t R^tS 
C S47QE 
s^Xmm Ox 

0P2 ADR • 4 TO 
$m R AND WS2 
SB ON TO INDICATE 
NON^RO BYTE STORED 
S4 ON TO INDICATE 
Gl* G2 AtREADY D6CR 



2ER0S STORED 
0P2 FETCH REOD 

ll m0>m. 0C87 

E 1000 
R«4^RtA 
HOTl^ADDER 
L vrS2^LSA 
t R*LS 
C S470E 

Nl«>» 01 «H\|A 



B W^MMB 
D Glf2-1 
D LBfMB""! 
C W^IVD I 
R B12(A«1}^B i 
R G1»0 tii»"0 I 
A2"""*" """"AB 



MOVE UF2 BYTE TO M 
CK F0« INVALID DIGS 
DECR Gl G2 LB MB 
BR UN Gl UB 



00 

-€ 0011 
B UB^U 
B U^W 
B W^MMB 
D D^t 
Gl«27l 
LB«MB<">1 
WSfE^USA 

W^IVD 
B0U«1)^B 
G1<»0 0 



0C4C 



D 
D 
L 
t 
C 
R 
R 



AS""*** 



0F2 FETCH 

01 ^ 
E 0011 
D 

L WSoEUSA 
I L L*tS 



REOD 
0C49 



00 •'HE] I 



I 



0P2 FETCH REOD 

01 ^ 0C4D 
0011 
D4t 

0"^^ WS^E*LSA 
t LKS 



E 
D 



NEXT 0F2 WORD 
TO L AND WS9 



OPl FIELD LENGTH 
EXHAUSTGD 

11 -~ 0C4B 

A R''f4^R 
L WS2*LSA 
L R^LS 



0 

E3«» 



NEXT 0P2 WORD 
TO L AND WS3 
BR ON S4 CGI G2 
ALREADY DECR) 



BLOCK AC - 
MOVE 0F2 BYTE TO M 
CK FUR INVALID DIGS 
NEXT 0F2 WO TO 
L AND WS3 



BLOCK AE - 
OFl ADR TO SAR 

0F2 WD TO wsa 

MUVE 0F2 BYTE TU M 
CK FOR INVALID DIGS 



00 0CS4 
E 1000 
A H4A 
B LLB*U 
B U^W 

W^MMB 
D Glo2'«l 
D LB9MB«»1 
L WS«E*LSA 
L L^LS 
C W4IVD 
R itt?A»M*B 
R G1MB2 QSttO 
A5«-** 
«Gl«OiQtMB»O^^A 



00 0C50 
0001 
I A H-€*H 
r*/«^!s^B LlB^U 
t I B 0*W ^ , 

i9cO O^^B W<#MMB j*-^ 
S4 D Gl«2-1 

0*9« -^C D LBqMB«1 

C W^iyD 
R BQ?A«1)*B 
R G1MB^ G2i»0 I 

(Gl«0)OCMBiiO)^A 



OFl FIELD LENGTH 
EXHAUSTED 

11 -~ 0C4F 



J2-*- 10 •^B 

RESTORE tm ADR*" 
0F2 Al^ 4 
TO R AND W$2« 



R/4^R 

W$2*LSA 

R*LS 



OFl ADR - 3 TO H 
MOVE 0P2 BYTE TO M 
CK FOR INVALID DIGS 



OPl FIELD LENGTH 
EXHAUSTED 

11 — 0C53 



J3— 10 — JC 

RESTORE 0F2 ADR* 
0F2 ADR / 4 
TO R AND WS2 



0F2 FIELD LENGTH 
EXHAUSTED- INSERT 
ZEROS 

01 

A H^A 

W*MMB 
D Gl«l 
D MB**1 
R 61MBZ 
E5*N» #1 _ 
iGliiO)0(MB«Oj*A 
OFl ADR TO SAR 
ZERO BYTE TO M 
DECR Gl MB 
BR ON Gl MB G2 



0C55 



1 



00 - 
0101 
LLB^U 
U^W 
W^MMB 
G1^2-l 
UBfMB-l 
w5fEH.SA 



OCBO 



LS^L^tS 
W^IVD 
GIMBZ 
Ajfr**** 4(X ^ 
<GI«0)0<MB»0>*A 



MOVE 0F2 BYTE TO M 
CK FUR INVALID DIGS 
SIXES TO L 



0F2 FIELD LENGTH 

TED- INSERT 



EXHAUSTI 
ZEROS 

01 

O^'^MS 0101 
B W*MMB 

WScE^LSA 
L LS^LKS 



C8 



R/44R 

WS2^LSA 
R^LS 



Gl 
OR 

1 1 1 



J4— 10 — UD 

RESTORE cr2 ADR- 
0P2 ADR + 4 
TO R AND WS 2 



UFLO 

M FILLED 
11 — 



0C57 



A H*A 



J5— 
OFl ADR 



E6«=to 



IX -HEF 



SIXES TO L 
ZERO BYTE TO M 



OFl FiaD LENGTH 
EXHAUSTED 
OR M FILLED 

WS«E^LSA 
LS^UtS 



0C83 



11 
TO SAR 



SIXES TO L 



y-1 



MOVE AN 0F2 BYTE 
DONT DECR Gl 



Oi OCSl 
OOOl 
H*E#H 
LLB^U 
U»W 
W#^WB 
LB«MB-1 
W^IVD 
1|0<A»1)4B 
GKO 0 



cFi Field length 

EXHAUSTED* 



10 - 
OOOl 
H*C«>H 



N4- 



OFl ADR - 3 TO H 
MOVE 0F2 BYTE TO W 
CK FOR INVALID DIGS 
DEC^ MB LB 
H^ANCH ON Gl 



ocsa 



ll jgi—fyy* 

OPl ABR - 3 TO H 



OX — C21 
1000 
MDfF^U 
U^W 

Dl^R 

WS«E^LSA 
^ LS^tfR^LS ^ 
A7— . XX ««-A6 
URl WORD TO R9 W$8 
UF2 WORD TO L 
MD TO Gl (RESTORE 
Gl TO CHECK OFl 
FOR INVALID DIGITS J 



B 
B 
B 
D 
L 
L 



XX ^ 0C4E 
L«E 0101 
B LLB^U 

B U^W 4 
B W4MMB 
0 G2-1 
D LB9MB-I 
L WS9EKSA 
L LSK^LS 
C W^IVD 

R RSGNS 

MOVE 0F2 BYTE TO M 
CK FOR INVALID DIGS 
SIXES TO L 
DECR G29 3 TO MB 
BR ON R SIGN STAT 



OFl FIELD LENGTH 
EXHAUSTED OR 



Pa 

B 



TRUE ADD 
XO 



M FILLED 
IX — 
1000 
MDfF^U 
UiW 
WL<»G1 



C23 



B 



D^R 
D 3^MB 

I 
L 
R 



WSfE^LSA 
R^tS 

RSGNS 



1000 
MfL^R 
R34U 
U*W 
Gl-l 
MB#MD— 1 
WS<»EKSA 
LSK.R^LS 
W*IVD 
1^B$«MB 
G1»0 



C24 

pA 



E8~ 



s^X -^pCH 



/ SIXES TO RtWSS 
WORD TO L 
STOFl^BYTE^^ 



0P2 
OFl 

CK It. 

FOR INVALID 



X«t mmjQ 



OPl WORD TO Rf wse 
MD TO Gl < RESTORE 
Gl TO CHECK OPl 
POR INVALID DIGITS) 
3 TO MB 



COMPLEMENT ADD 

XI C27 
E 1000 

A mn 

B R3^U 

U*W 
D Gl-1 
D MBfMD-1 
L WStE^LSA 

C l^BS*MB 
R GliiO 

0P2 TO R AND WSB 
OPl WORD TO L 
CK 1ST OPl BYTE 
FOR INVALID DIGS 
SET BYTE STAT 
DECR Gl MD MB 

m max 



asii6«c 
tixT 

G2 LESS THAN 4 



R AND L SIGN STAT USAGE 

R SIGN STAT IS 
ON fm aDW»L ADD AND 

OFF ftm mm add 

L SIGN STAT IS 
m FOR NEG OPl 

OFF m pos m>i 



ox 

1000 
L^M 
LMB*U 
U*W 
GW 
MB«MD-1 
WS«E^LSA 
LSK^LS 
W^IVD 
1#BS«MB 
GIMBZ 



0C29 



E9— 



«X 



-OSIKI 

^QMpifiTE OPl 
CHECK THEN 
PERFORM ADD 



(Gl«iO)Q(MB«0)4A 



OPl WORD TO M 
ASSEMBLED 0P2 TO L 
CK OPl BYTE FOR 
INVALID DIGITS 

SL^n*^ «TAT 
DECR Gl MD MB 
BR ON Gl MB 



OPl FiaO EXHAUSTED 
OR M FILLED 

IX ~- 0C2B 
E 1000 
A L4M 
WStE^LSA 
LS*L*LS 



u: 



^JS114— 
(IX) 
PERFORM ADD 



"^lE 



IX 



OPl WORD TO « 
ASSEMBLED 0P2 TO L 



a 

S 

I 
I 

2 



??S4r7t 
;?SS449 
^56498 



0l/13t$5 I MAC^ C2050 
02/23t4S NAIC 

0V20t$S I MODE MANUAL 

03/2!N^ t P«N« S364809 

I IRM CORP* snD 



i DATE 
" LOG 



03/28+46 
69S 



St^ET 1 
VERSION 



asii2 



DEC ADDt SUBTRACT. 0P2 ASSFMB 
flEGiN OPl VALTDIY CHfCKt 



ox 



QS110«EIE«< 
COXtlX) 



-►I 

A 
B 

B V^W 



H4A 



C2D 



MHB^V 



Gl-1 
MB«MD-1 

1^BS4(MB 
61MB2 RSGNS 



** — AA 



-g (G1«0)Q(MB>0)-»A 

OPl ADR TO SAP 
OPl BYTE TO MOVER 
FOR INVALID DIG CK 



OP X FIELD EXHAUSTED 
OR M FILLED, 

IX — C2F 

A H^A 



aS112#JIE- 
CIX) 



R I 
El— 



RSGNS 
I* — EA 



OPl ADR TO SAR 
BR ON R SIGN STAT 



00 — " C88 11 — C8F 

E 0010 

K-^M A M-L^D*BS 

~B MMB*V 
B VL*WL UR^WR 
B W-^MMB 
D H0T14ADDER 
C S47t-iE 
R G1<0 

A3— JOtX —AC 
FIRST RESULT WORD 



DCO 

MMB-^V 

V*W 
Gl-1 
MBfWD-1 

W->IVD 
14BS«MB 
AQ<B»1)4A 
G1«0 S6 



A2— 



m — AB 



Sl^ADDER 
CARRY<0)*S1 
DEC ADO CORRN^L 



0P2(L) + OPl(M) 
TO M AND GEN DEC 
CORRECTION IN I. 
OPl BYTE TO MOVER 
FOR DEC DIGIT CK« 
ORIG OPl ADR TO R 
DECR Gl MD MB* 
BR ON GlsO AND 
FIRST WD STAT 6« 



COMPLEMENT ADD 



C89 



aS110«LIE«- 
(lOtll) 



01 

I 

A M-L*M 

DCO 

B MMB-^V 
B V*W 
D Gl-1 
MBfMD-1 
W-^IVD 
1^BS«MB 
AQ(Bsl)^A 
GlsO S6 



CORRECT RESULTS 
(M-L TO SDR)« 

TN OFF 1ST TIME 
STAT 6« 

0P2 WD (WS3) TO L 



G2— 



m — GB 



Sl^ADDER 
CARRY <0) ♦SI 
DEC ADD CORRN^L 



OPl(M) - 0P2(L) 
ORIG OPl ADR TO R 
BR ON G1«0 AND R 
FIRST WD STAT 6« 



C8E 



10 - 

1011 

M-L->D!««BS 
MDtF^U 
U'^W 
W67*MB 
HOTl^ADDER 
WSfE-^LSA 
LS^R^LS 

XX — GC 



B 
B 

D 
L 
L 

G3— 

CORRECT RESULTS 
(M-L) AND STO»E» 
SET MB TO ADR OF 
FIRST OPl BYTE 
FETCH LENGTH FIELD 
L1L2 TO R« 



COMPLEMENT ADD 



11 



C8B 



M-L*M 
DCBS 
MDfF^U 
U^W 
B W67->MB 
R AQ(B»1)^A 
R GKO S6 
U3— ** — LC 
Sl^ADDER 
CARRY^BS^Sl 
DEC ADD C0RRN4L 



0P1(M)-0P2(L> TO M 
DECIMAL CORR TO L 
ORIG OPl AtJR ft) R 
BR ON Gl NEGATIVE 
AND FIRST WORD 
STAT 6* 



TRUE ADD 
10 



C8A 



A 
-A 
B 
B 
B 
M 
R 



M4i».^M 
DCBS 
MDfF^U 
U^W 
W67^MB 
AQ(B=1)*A 
G1<0 S6 



IX 
1011 
M-L*T 
HOTl^ADDER 
WSfEKSA 
LS^R^LS 



-€ 
A 
D 
L 
L 
I 

A6— 



CC7 



XX — AF 



OPl EXHAUSTED 

RECREATED SUM FOR ZERO CHECK 
LENGTH (L1L2) TO R 



I 

A 
-D 

D 
L 
L 
R 



OX 



CCS 



M-L*T 
HOTl^ADDER 
3*MB 
WS2'»LSA 
LS^R^LS 
G2<»LB G2<0 
E6— m — EF 
BRANCH IGNORES 
G2 SIGN 



RECREATE SUM FOR ZERO 

CHECK 
0P2 ADR TO R 



00 



C8C 



M-L->D«BS 
HOTl^ADDER 
D 3<»MB 
L WS2-»LSA 
L LS*R*LS 
R G2<8LB G2<0 
L4— m — LD 
BRANCH IGNORES 
G2 SIGN 

CORRECTED RESULTS 
(M-C) TO SAR# 
0P2 ADR T,0 Rt 
BR ON 02 EQ OR 
LESS THAN LB A^yiD 
G2 NEGATIVE* 



■^11 0 A FE 
(XX) 



G2 NEGATIVE 
01 — 
E 0000 
A H-^*H 

HOTl^ADDER 
E^BS 



C91 



C 

I 
R 

L5- 



T2*BS 
X* -H.E 



XO - 
E 0100 
A H<^A 
-C S47QE 



C32 



XX 



OPl ADR TO SAR 
TN ON NON-ZERO 
STAT 5* 



UPDATE OPl ADR TO 
NEXT WD (H-4 TO H) 
RESET BYTE STATS 
BR ON RESULTS » 0 



O 62 LESS THAN OR 
EO TO LB 



XI 

I 

A H*A 



C33 



a 
s 
1 
i 

4 



Sl^ADDER 
CARRY4iBS^Sl 
DEC ADD CORRN^L 

0P2(L) + OPl(M) 
ORIG OPl ADR TO R 
BR ON Gl NEGATIVE 
AND FIRST WORD STAT 6 



00 — C90 
E 0011 
A H-1*H 

— D Gl,2-1 
L WSfE^LSA 
L LS^L^LS 
C SOSQE^O^BS 
R TZ*BS LB»3 
04— m T^D 

LATOI ZERO 11EST 
PER BYTE STATS 



PARTIALLY UPDATE 
OPl AW? (H-l TO fi) 
0P2 WD (WS3) TO L 
RESET BYTE STATS 



XX 

OPl ADR TO SAR 



E 
A 
-I 

L 
L 

i7- 



XX 
0101 
04M 



01C3 



WS«E->LSA 
LS->L->LS 



-aS112- 
(IX) 



IX — JG 



ZEROS TO M FOR 
EXTENDED aP2 f^IELD 
FETCH SIXES (WSS) 
TO L. 



10 
0011 



C92 



L 
L 
C 
R 

Q5< 



HOTl-> ADDER 
WSfE^LSA 
LS^L^LS 
S03QE«0^BS 

TZ«BS 
X* — QE 



■^S116— (JfC 
(XOtXl) 



UPDATE OPl ADR TO 
mXT m (Ht*! Tt3 H) 
aP2 WD tv«) td L 
BR ON RESULTS s 0 



-(iS112^ 
(00t01«10«ll) 



258068 
258430 



10/20/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P«N« 5469500 

IBM CORP* SDD 



DATE 12/29/67 
LOG 662 



SHEET 1 aSll4 
VERSION 



DECIMAL ADDf APt SUBTRACT t SP 
ADOf SUBTRACT INNER LOOP 



(KpfXJl) 
FROM WAIN L00»» 



XO — C3A 
0100 
0*M 



A 0 



0* ---CC 



r 



T<^ UN tm^mO STAT 
BR UN LB (FETCH RQO) 



a«ROS STORCD 

i 

A 0*M 



C3B 



R 0 
63— 



LBttS 
0* — 6C 



FETCH NEXT 0P2 WORD 
01 C95 



R-4*R«A 
HOTl^APOER 
WS2*LSA 



XX — GD 



XX 

€ OOll 



C8D 



is— 



00 — 6E 



ZEROS TO M 
BR ON LB EO 3 
(FETCH RBOD) 



0F2 ADR - 4 
TO SARf Rf WS2 



UST 0P2 WORD TO L 





00 



C94 



D 
C 
C 
R 
R 



ttB*U 

61 92-1 
U«HB«»1 

i#B$«MB 
AQ(B»l)^A 
61«»0 62*0 

0P2 BYTE TO M 
CK FOR VAtlD DieJETS 
SET BYTE STAT 
SiC« W tB MB 
BR ON QX 62 



0R2 I^IELD EXHAUSTED 
^ 10 — C96 
e OXOl 
A H*A 
WS«6#tSA 
LS^KS 



67— IX —66 

OFl ADR TO SAR 
Sixes TO L 



-03X12 
<1X) 
CHECK QRl FOR 
VALID DECIMAL 
DI6ITS 



OFl FIELD EXHAUSTED 
(0^2 MAY ALSO BE 
EXHAUSTED) 

11 0C97 
f 0101 
A H^A 

WStE^LSA 
L LSKKS 



L7— IX -^.6 

OFl ADR TO SAR 
SIXES TO L 



2SflS44f 



014^13/65 
01^13/65 
094»20/$5 



MACH C20S0 
NAME 

MODE MANUAl. 

F*N» S3648U 

XHM CORP* SDD 



DATE KHOX/45 
LOG ^2 



SHEET 
VERSION 



I 6S116 



OfCIMAL ADDt ARt SUBTRACTt SR 
6^ COUNTFR LFSS THAN FOUR 



*E 0011 
L WSfE^LSA 

S03QE«0>BS 



C56 



L 
C 

R TZ«BS G2<0 
Al— — AA 
LATCH ZERO TEST 
PER BYTE STATS 

CURRENT SOURCE 

WORD TO L 

TN ON BTYE STATS 2*3 
BRANCH ON- 

-ZEROS STORED 

-G2 UFLO 




00 — = 
0100 
R3->U 
U*W 

3^MB 
WSZ^LSA 
LS*R*LS 
S47QE 



C98 



LB=3 I 
X* ~AB 



0P2 ADR TO R 
RELOAD Gl WITH LI 
3 TO MB 
TURN ON NON-ZERO STAT 
BR ON 0P2 FETCH REOD 



ZEROS STORED 

10 — C9A 

I 

B R3*U 

U-^W 
B WL4G1 
D 3-^MB 
L WS2*LSA 
L LS^R^LS 
R LB»3 
E2— X« — €B 
0P2 ADR TO R 
RELOAD Gl WITH LI 
3 TO HB 

BR ON 0P2 FETCH REGO) 



XO 
0001 
E^BS 



CIE 



R SI 
A3~ 



RSGNS 
~AC 



3«e— 0 



n 



OR TO MVR FN REG 

BRANCH ON- 
-DEC CARRY STAT 
-R SIGN STAT 



SOURCE FETCH REQD 

XI CIF 

0001 . 
R-44RfA 
HOTl^ADDER 
E^BS 



E 
A 
D 
C 

I 

E3— • 



00 
0000 
0->M 



C9C 



E*S03 
AQ(Bsl)*A 
0 G2<0 



A4— 

TRUE ADD 
NO OFLO 



m '--AD 



ZEROS TO M 

TN OFF STATS 0-3 

BR ON G2 UFLO 



COMP ADD 
RECOMP REQUIRED 

01 — C9D 
0010 I 
0*M 



XX —EC 



0P2 ADR-4 TO SARtR 
OR TO MVR FN REG 



G2 UFLO 

01 -~ C99 
E 0100 
B M^U 

U^W 
B WL^Gl 
L WSl^LSA 
L LS^R^LS I 
C S47QE 

R SI RSGNS i 
J2— ** — JB 
RELOAD Gl WITH LI 
TN ON NON-ZERO STAT 
BRANCH ON- 
-DEC CARRY STAT 
-R SIGN STAT (ON 
FOR COMP ADD> 



ZEROS STORED 
AND G2 UFLO 

11 — - C9B 
— E 0001 
B R3HI 
B U-^W 
B WL*G1 
— L WSl^LSA 
L LS^R^LS 
R SI RSGNS 
N2— « — NB 
RELOAD Gl WITH LI 
TN ON BYTE STAT 3 
BRANCH ON- 
-DEC CARRY STAT 
-R SIGN STAT 



XX 
D*L 



R SI 



C82 



RSGNS 
** — JC 



TO L 



00 

0001 

E(13)*WFN 



CAO 



AQCBsD-^A 
0 Wsi 



A5=-= ^ AE 

CHECK FOR SPECIAL 
CASE WHERE 0P2 WAS 
LARGER THAN OPl FIELD 
BUT WAS REDUCED BY 
COMP ADD (SEE BLOCK ND) 



E*S03 
AQ(B»1)^A 
0 G2<0 1 



ho 



E4 — 



—ED 



SOURCE WORD 

BRANCH ON- 
-DEC CARRY STAT 
-R SIGN STAT 



ZEROS TO M 
TN OFF STATS 0^193 
TN ON RECOMP STAT 
BR ON G^ UFLO 



TRUE ADD 
OVERFLOW 

10 C9E 

D E 0000 
I A O^M 
0— D HOTl^ADDER 
C B^SOZ 
R AQ(Bsl)4A 
R 0 G2<0 
J4— ^ — JD 

ONE TO M 

TN OFF STATS 0-3 

BR ON G2 UFLO 



BLOCK EG - 
OR 0P2 BYTE FROM L 
WITH BYTE FROM M 
(TO SAVE THE BIT 
IN M IF OFLO HAS 
ALREADY OCCURRED) 



FETCH NEXT 
10 - 



00 — 

I 

B R3^U 
-B W67^MB 



CAC 



R LSGNS 
N3— 

NO OFLO 
NO RECOMP 



S5 
** — NC 



BR ON SIGN L 
AND NON-ZERO« 



0P2 WORD 
- CA2 



R-4*RfA 

HOTl^ADDER 



XI 
D D*L 



R 

J5— 



TsO 
X* — JE 



0P2 ADR-4 TO SARtR 
BR ON OVFLO 



COMP ADD 
NO RECOMP REQUIRED I 
11 — C9F 

E 0000 

A O^M 

B LLB^U 

B U*W 
E*S03 

R AQ(Bsl)^A 

R 0 G2<0 I 

N4— «* — ND 
ZEROS TO M 
NEXT 0P2 BYTE TO 
MOVER FOR POSSIBLE 
SPECIAL CASE C:HECK 
BR ON G2 UFLO 



11 — CCB 

E 0010 

D G2-1 
D LB9MB-I 
C S03QE 
I 

R 0 G2LBZ 
AT— o« —AG 

(G280)Q(LBaO)->B 
SPECIAL CASE - 0P2 
LARGER THAN OPl 
FIELD BUT HAS BEEN 
REDUCED BY COMP ADD 
BR ON G2 LB I 

(FURTHER 0P2 CHECK 

MAY BE REQD) 



OVERFLOW AND 
RECOMP REQUIRED 

00 — CC8 

1 

B LLB^^U MMB4V 
^B ?*W 

B W<»MMB 
— D G2-1 

D LBfMB-1 

C W-»IVD 

C 14BS*MB 

R 0 G2LBZ 

E7— 0« —EG 

(G2>0)Q(LB«0)->B 



00 - 
E 0100 
B 

■»B W^MMB 



CA4 



E*WR 



A8— 



XX —AH 



OVERFLOW 

BEGIN EXAMINATION 
OF PSW FOR OFLO 
BIT 



01 — CAS 
E 1110 
A -l^M 

0 B R3*U 

B U^W 
B W67*MB 
C S03QEf04BS 
R LSGNS 1 
E8— *1 -^H 
ZEROS TO M 
LOAD MB WITH LO 
OPl BYTE ADR 
TN ON OFLO STAT 
AND RECOMP 1ST 
TIME STAT 



CCC 

In. 



00 — 
E 0000 
S IA«/2*A 
f— *S SMIF 

C E(23)*CR 

R I-FETCH 

A9— 
SUPPRESS MEMORY 

IF OFF BNDS 

AND PREFETCH 
EXCPNQIA(30)*A 
EXCPNQ(IA(30)«REF)4B 

OPl PLUS AND RESULT 
IS ZERO 

00 TO PSW(34f35) 



C37 



00 — JF 



G2 OR 



LB WAS 
01 



ZERO 
CC9 



M*T 



R 1 
J7— 



G2<0 
1* 



NEXT 0P2 WORD TO L 



M TO ADDER LATCH 
FOR OVERFLOW CHECK 
BR ON G2 UNDERFLOW 



I 0P2 FIELD EXHAUSTED 

11 — CA3 
I— E 0000 I 
O^M 1 
WR^G2 

WS14LSA i 
LS-^R^LS |s 
C E(13)*WFN I 
R BQ(A«1)>B t 
R TZ4CBS RSGNS i 
M5— jWc «-H\JE 
LATCH ZERO TEST 
PER BYTE STATS 
ZEROS TO M 
RTMOST OPl ADR TO 
SET MOVER FN REG 

FOR CROSS GATING 
BRANCH ON- »— 
-NON-ZEROS IN M (OFLO) 
-R SIGN STAT 
(ON FOR COMPL ADD) 



OVERFLOW 

XO - 

I 

A O-^M 
—I 

D H0T1->ADDER 



C36 
14 



NO RECOMP 
10 - 



C02 



OPl PLUS AND 
RESULT IS NON-ZERO 
01 — CC! 
E 0010 
S IA+0/2*A 

SMIF 
C E(23)>CR 
I 

R I-f ETCH 

E9— - 
SUPPRESS MEMORY 

IF OFF BNDS 

AND iREFETCH 
EXCPNQIA(30)^A 
EXCPIIQ(IA(30),REF)^B 

10 TO PSW(34f35) 



-QT105- 



-AID 



(OO9OI9IO9II) 
TO FREE ENTRY 
OF I-FETCH 



■^120— -AHF 
(XX) 

TO OFLO TEST 



R LSGNS S5 I 
J8— aflofit >JH 
BR ON OPl SIGN 
AND NON-ZERO STAT 



"J 



N6— 
ONE TO M 



XI 



NO OVERFLOW 
11 — 
E 0100 
A -1*M 
R34U 
B U*W 
B W67*MB 
C S03QE«0^BS 
R AQ(B«0)^A I 
R LSGNS S2 j 
M8— m — NH 
ZEROS TO M 
LOAD MB WITH LO 
OPl BYTE ADR 
RESET BYTE STATS 
BR ON RECOMP REQD 



OPl NEG 
RESULT IS ZTO 
10 — - 
E 0000 
A R4A 
— < 6(23)*CR 



XX — JI 



00 TO PSW(34f35) 
LO OPl ADR TO SAR 
(TO CHANGE SIGN) 



E 
S 



SAME AS NC 
11 — 

1 

B R3^U 
6 W67^MB 



OPl NEG 

RESULT IS NOI\HZERO 

11 CCF 

0001 I 
I/H0/2*A 
SMIF 
C E(23)^CR 

R I-FETCH 

N9— m — 
SUPPRESS MEMORY 

IF OFF BNOS 

AND iREFETCH 
EXCPNaiA(30)4A 
EXCPNQ(IA(30)»REF)^B 

01 TO PSW (34 f 35) 



H2S120* 



(Olfll) 
TO RECOMP 
ROUTINE 



-€HF 



-<3tS120. iJlE 
(XX) 

CHANGE SIGN 



HJ6120— — JBF 
(OltlO) 



-QSi; 
(0X«11) 
TO RECOMP 
ROUTINE 



CAF 



R LSGNS S5 
S3— m 



254765 

25477^. 

255449 

256498 

256907 



01/13/65 
02/23/65 
09/20/65 
03/25/66 
06/10/66 



MACH 
NAME 
MODE 
P«N« 

IBM CORP« 



C2050 

MANUAL 

5364812 

SDD 



DATE 06/17/66 
LOG 631 



SHEET 
VERSION 



1 QS118 



DECIMAL ADDf APf SUBTRACTf SP 
Gl CTR LTH ZEROf CHECK OFLO 



11 - 

C^E 1110 
A R+4*R 



aS118«EHF« 
(Olfll) 
FROM OFLO 
TEST 



QS118«NH> 
(Olfll) 
FROM OFLO 
TEST 



C03 



E-^WR «— d 

B W-^MMB 
D Gl-1 
D MB-1 
C E{23)*CR 
R GIMBZ 

Al— *X — AA 
(Gl«0}Q(MBsO)<»A 

OPl ADR TO R 
EMIT 1110 TO Slow 
AND ZERO 1ST 
DIGIT IN Mt 
DECR MB AND Gl« 
SET CR TO 10 (+)• 



aSll8»JBF- 
(OlflO) 



QSllB.JIE^ 
(XX) 

FROM OFLO 
TEST 



asiie.AHF- 

(XX) 

OVERFLOW 



01 — COl 
— E 1101 

A R44'>R 
— B E-^WR 

B W-^MMB 

D Gl-1 

D MB-1 

C E(23)'^CR 

R GIMBZ 

El~ *X -^A 
(Gls0)Q(MB*0)^A 

OPl ADR +4 TO R 
EMIT 1101 TO SIGN 
AND ZERO 1ST 
DIGIT IN M« 
DECR MB AND Gl« 
SET CR TO 01 (-)• 



OX — CBC 

A R-44RfA 
B W-^MMB 
D HOTlfG-1 
D MB-1 
C 1>BS*MB 
R BQ(A=1)->B 
R GIMBZ 0 
A2— 4a9> *— AB 
(GlsO)Q(MB»0)4A 

OPl ADR -4 TO SAR 
AND R# 

ZERO BYTE IN M# 
DECR MB AND Gl« 



I 



00 



CA8 



B W-^MMB 
J— -D Gl-1 
D MB-1 
C l-^BS^MB 
R GIMBZ 
A3— «1 
(Gi=0)Q(MB«0)->A 
ZERO BYTE IN M» 
DECR MB AND Gl* 



IX — CBE 

I A R-^R*A 
0-«D HOTl-^ADDER 



RE-COMP 



01 - 
0010 
-1*M 
WR^GZ 
E'^S03 



-*E 
A 
B 
C 

R LSGNS 
Jl— 



CAD 



E2— 

OPl ADR 
AND R« 



1 



I 



01 



CA9 



B W-^MMB 
D*L 

Gl-1- 
MB-1 
l-^BS^MB 



A4— 



XX —AD 



OPl WORD TO L« 
ZERO BYTE IN M. 
DECR MB AND Gl« 



-I 



11 



CAB 



B R3-^U 
-B U4W 
W67*MB 
D*L 



11 — EB 
% TO SAR 



B 
-D 

^4- 



XX — CAA 
E 0010 I 
A M-i.->M 
—A DCO ^ 

C S03«iE 
— R AQ(BsO)*A 
R LSGNS S2 
A5 — m — AE 
S1*ADDER 
CARRY {OJ^Sl 
DEC ADD CORRN^L 

SUBTRACT DPI WORD 
FROM M AMD GEN 
DEC CORR IN L« 
TN OFF RECOMP 
STAT 2. 

BR ON SIGN OF OPl 
AND RECOMP STAT 
(1ST WORD). 



01 

E 1101 
A R-^A 
-O— B 



— CCl 

MMB^V 
E^WR 



B VL*WL 
B W^MMBCE?) 
C l*BS>fl«MB 
A6— XX — AF 
ALTER EMIT IF 
ASCII BIT ON 
OPl ADR TO SAR# 
EMIT BCD MINUS TO M 



XX —ED 



OPl WORD TO U 
SET MB ADR OF 
1ST OPl BYTE 



NO RE-COMP 



4(1 




TN OFF STATS 0flf3. 
TN ON RECOMP STAT 2i 
SET G2 CNTR s0« 
BR ON L SIGN STAT 



J2— 



XX —OB 



OVERFLOW. 
EMIT OFLO 
MASK BIT 
TEST PATTERN 
TO M. 



XX 0C3F 

-*E 1100 

B E^WR 
B W*MMB(E?> 
C l>BS)(cMB 



Nl— XX — NA 
ALTER EMIT IF 
ASCII BIT ON 
EMIT BCD PLUS TO M 



I 



XX 



0C4A 



A f^mBS 



N2— IX 
M TO SDR. 



11 — CC3 
E 1100 
A R-^A 

MMB->V 
B VL^WL E*WR 
B W^MMB(E?) 
C 1-^BS39(MB 
E6— XX — €1 
ALTER EMIT IF 
ASCII BIT ON 
OPl ADR TO SAR 
EMIT BCD PLUS TO M 



XX — 
0000 
M-L*D*BS 
HOTl-^ADDER 
3^MB 
E^BS 

BQ(A=0)*B 
G1<0 SO 



ceo 



A7— 



—AG 



SUBTRACT CORR 
FROM Mt RESULTS 
TO SDR. 
SET MBs3. 

BR ON RECOMPLEMENT 
COMPLETE AND OFLO 
STAT 0. 



01 — 

O^M 
WR^G2 
Gl-1 
MB-1 
1->BS*MB 
G1=0 



COS 



D 
D 
C 
R 

A8— 



*X —AH 



ZERO M REG. 
DECR MB AND Gl« 



10 

I 

A R'^A 



CC2 



XX 

OPl ADR TO SAR. 



10 — 0C06 
E 1110 
L WS.E-^LSA 
-i. LS*L*LS 
S IA+0/2*A 
C E*S47 
R I-FETCH 
E8— m —EH 
EXCPNQIA(3Q)^A 
EXCPNQ(IA(30).REF)^B 
1ST WORD OF 
I FETCH 



-aTiio- 



-EHE 



(OOfOIflOfll) 

TO 2ND CYCLE 
OF I-f ETCH 



11 

E 0100 
B 

W-^MMB 



— ^ W^M 

J8— 



— C07 
E>WR 

XX — JH 



EMIT 0100 TO M 
FOR TEST OF OFLO 
BIT IN PSW MASK. 



XX 

E OOIQ 

C E(13)-I^WPN 



CAl 



N7— 



C93 



XX —fIG 



XX - 
E 0011 
B PSW4<>U MMB-^V 
?*W 

C E<2I3)*CR 



XX 



MB— 



CA6 



XX - 
E 1010 
B EM^R 
-B W^MDtF 



*X — NI 



R WRsO 
N9— 



-QTIOO 
(IX) 
TO I-^ETCH 



SET MVR FUNCTION 
TO AND. 



AND PSW MASK WITH 
TEST BIT IN M« 
EMIT 11 TO CR FOR 
OVERFLOW. 



EMIT OFLO INTERRUPT 
CODE (1010) TO F« 



-QT310— 
lo^iNTERRUPT 



-aTioo 

(IX) 
TO I-FETCH 



258060 
258430 



09/29/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P.N. 5449079 

IBM CORP* SDD 



DATE 12/29/67 
LOG 662 



SHEET 1 aS120 

VERSION 



DECIMAL ADD* APt SUBTRACT « SP 
RECOMPLEMENT AND END ROUTINE 



FROM I-^iTCM 



lOOlXX — 
i 1000 
D OK 



0C24 



XX — AA 



0P2 WD TO tt I. TO 
W36t TM ON R SIQN 
STAT. 



^ XX --^ oeoc 
e oioo 

A 0*H 
•—A DCO 

L WSfg^UA 

SllAlDOeH 
CAR»*YtO)»Si 
Dec ADD COHRI\I^L 

zmis TO sixes 

TO t* t TO WS4t 



L 

C 
I 



XX 
1000 

wste^sA 

LS^L-ltS 

s^roE 



E2l 



XX 



0f»2 wo TO L9 TUHN 
ON STAT 4 (1ST 
nm STAT)t 



XX 



Ut^Wt VI^^WR 
W^MMB 

WSl*tSA 
US^HKS 
C Wt^XVD 
C L^RSGNS 



aS2l02«A6D«<^ 
(00) 




00 



oeoo 



xo 



u^w 

W^HHB 

WSl^LSA 
tS*R*US 
W^IVD 

OlMZ a2LBZ 



0S202tAeD««''-wi-»«**%i^ f )Mi -^-CA 



0£SO 



(00«0].flOai) 



(Gl«iO)0(M»»0>^A 
(a2»0J0(LB»0)*« 
ORl ADR TO Rt 
XPCR OPZ BYTE TO M 



Qmrmi 



MOTl^ADDER 
WS2KSA 
R*LS 

Imm XX -v-EB 



ADR OF NEXT 0R2 
WD TO SAR» R^ TO 
At Rf WS2f 



XX 
E lOOO 
D D*t 

WS«EKSA 
t L^tS 



OEIE 



E3-I-. 



00 •^c 



I 
I 

09i <*i^D 

IF <»fX^tSON« 
iRSQN 
IF /fO^tSON 
IF NOT SOW t TRAP 
T6l«»0)Q(MB»0)*A 
(62«0)0(LB«0)tB 

TEST SXGN« ASSEHBLE 
XST BYTE IN M WITH 
SIGN REHOVED* 



0P2 WD TO L» I TO 
WS8* 



-0-/' 



OX 



OEOX 



0«-~D 3*tB 
I 
I 
R 



XX 



0E5X 



WS2iLSA 
tS^R^LS 

Ga<o 

X^ — JA 



ZEROS TO L# 0P2 
ADR TO R« SET LB 
«i3« 



LLB^U 
D^W 
B W*MMB 
GX*2-X 
LBfMB-X 
WSX^LSA 
LSiR^LS 
W<#IVD 
X*BS>8WB 
GXMB2 62tB2 



J2^ 



(GX«0)a(MB«OHA 
(G2«0)0CLB«0)<IB 
LIKE EA 



XO E02 
E OxOl 
^ A M*L 
6— WSfE^LSA 
L L^LS 
C S47»iE 
R S2 
NX*— X* -MMA 

FETCH SIXES TO U 
TN OFF STAT S TO 
INDICATE THAT 0i»2 
FITCH NOT NE6£NED# 
BR ON XST TI«E 
STAT 4 AND R SIGN 
STAT* 



mmmQm 



s 

I 

0 



I 

itm m EXCEPT turn on 

I STAT 5 TO INDICATE NO 
I MORE tm BYTES IN CFU 
I XX ^ E03 

♦ E OXOX 

A N^L 
U-H, WS^E^tSA 

t I ♦LS 

C S470E 

R S2 

SX-* X* ^A 



mmimm»Qim 



I 



XX 



0E53 



A 0*M 



RSGNS 
X* —EE 



ZEROS TO M« BR ON 
R SIGN STAT* 



XO ^ 

H^A 
R3*U 

W67*MB 
S4 



E»2 



B 

B 
R 

N4«^ ^X —NO 

ORX ADR TO SAR* 
OPX XST BYTE ADR 
TO MB# 



OX — E54 
e 0X00 
D D*M 

D 3*HB J» 
L WSfE^LSA 
LS*L*LS 
S03«iE 
R SX 
X* 

OFX WORD TO M 

FETCH SIXES TO L 

TURN OFF DEC CSTAT (SX) 

BEFORE ADDING SIXES 

IN NEXT CYaE 
BR ON CARRY STAT AND 

RESTORE IN ^ IF ON 



IX ^ 
E lOOO 
D D^LfH 
C S47*iE 



0€S6 
I 



NS-*" XX — NE 

OFX WORD TO L% M« 
TN OFF STAT 4 
(XST WORD)* 



XX ^ E»6 
E 0X00 
B LMB^U 
-B UL^WL VR^WR 
B W^MMB 
t WSfE^LSA 
L LS^L^LS 
" IVD/RSGNS 
XX 



IF ^% *|RSGN 
IF NOT SGNfTR^ 
TEST OFX SIGN 
AND ZERO IN M« 
FETCH SIXES 
TO L* 



E92 



XO 
0X00 
I4K*T 
DCBS 
WSfEKSA 
LS^R^LS 



t7mt» XO ai^G 

SX^ADDER 
CARRY^BS^SX 
DEC ADD CORRN*L 

ADD SIXES TO 
OFX FIELD AND 
GEN SIXES IN 
L IF VALID DECt 
FETCH SIXES TO R# 



0X0^ 



E83 



.♦T 
DCBS 

WSfEHSA 
LS^R^LS 



-^G 



J7— XX 
SX^ADDER 
CARRY*BS*SX 
DEC ADD CORRN^L 

SAME AS EG* 



XX E2f 

e 0X00 

A M+L*T 
DCBS 

D 3*MB 

L WS«EKSA 

L LS^R^LS 

C X*BS»«S 

R nSQHS 

N7<*M» "<*imNG 
SX^ADDER 
CARRY*BS#SX 
mC ADD CORRN^L 

ADD SDCES TO 
tmi FIELD AND 
SIXES TO L IF 
VAI.ID DEClMAt* 
SET MB«3* 
FETCH SIXES TO R* 
BR ON R SIGN 
STAT* 



254765 
255449 



OX/1 3/65 
09/;>0/65 



XO EB4 
OXOX 
Rn.*T 

HOTX^ADDER 
WStE^LSA 
LS^L^LS 
R RSGNS 
E8^ X« m^ii 

SUBTRACT CORR 
IN L FROM SIXES* 
ASSEMBLED 0P2 
TO L« 




XX E85 
OXOX 

rhl#t 

motx^adder 

WStE^LSA 
LS*t*LS 

S03QE 

RSGNS 

SUBTRACT CORR 
IN L PROM SIXES* 
ASSEMBLED 0F2 
TO L« 

TN ON DEC CRY 
STAT X* 



MACH 
NAME 
MOBE 
F*N« 

IBM CORP* 



C2050 

MANUAL 
53648X4 



TRUE ADO 
XO 



E80 



L 
L 
R 



M/L<>T 
DCBS 
WS2KSA 
tS*R*LS 
T2*BS 

*x w-E;: 

SX^ADDER 
CARRY4rBS^SX 
DEC ADD CORRN^L 
LATCH ZERO TEST 
PER BYTE STATS 

OPX / 0P2 TO Mt 
GEN CORR IN L* 



COMPL ADD 
XX - 



E8X 



L 
L 
R 



M<#T 
DCBS 
WSZ^LSA 
LS^R^LS 
TZJ^^BS 
^9-*» *X ---J 
SX^ADDER 
CARRY*BS*SX 
DEC ADO C0RRN4L 
LATCH ZERO TEST 
PER BYTE STATS 

OPX - 0P2 TO M* 
GEN CORR IN L« 



»aS202w-%i#^XE 
(OXtXX) 



DATE lO/OX/65 
LOG 902 



SHEET 
VERSION 



I as2oo 



COMPARE DFCIMAL <CP) 
COMPARISON OF 1ST wD QRND i 



IX E57 

XOOO 

r-«>D HOT ADDER 
L WSfE>LSA 

G1<0 TZWS 



E 
A 



El~ 



** -HEA 



00 — €04 
E 1000 
A 0*M 

C S03QE 
R AQ<B»1)*A 
R S5 62<0 
A2— m — A0 



RESET BYTE STATS 
BR ON EQUAL COMP 



I 



OX 



A O^M 



FETCH 0P2 WORD TO Lm 
DECR OPl ADR 
(HHI TO H)« 



E0?5 



R AQ(B>1)-»A 
R S5 6K0 
ES**** 'W' •'••EB 

ZEROS TO M. 
BR ON a STAT5 
AND G2 EXHAUSTED. 



E 
A 

c 

R 
R 



10 
lOXO 
O^M 



E06 



OSSOO.EIE*' 
(OXtXX) 



S03QE 
AQ(Bn)^A 
S5 62<0 



J2mm 



m ~EC 



ZEROS TO M« 
TN ON NON^ZERO 
STAT 0 AND 
END STAT 2« 
BR ON a STAT 5 
AND 62 EXHAUSTED* 




N2--* 



OX — E55 
E 0X11 

B E^WR 
W^MD«F 



ZEROS TO M« 
TN ON END 
STAT 2» 

BR ON a STAT 5 
AND G2 EXHAUSTED* 



10 ~ 
0000 
R«4^R«A 
HOTX^ADOER 
WS2^LSA 
RKS 
E*BS 

XX 



OEOA 



XX — 
E XOOO 
D D*L 
-L WS^E^LSA 
U L^LS 



0E34 



00 —AG 



ADR OF NEXT 0P2 
WD TO SAR« R-4 TO 
Rf Af WS2« 



0P2 WD TO L« 
L TO WS8« 



00 



ED4 



00 E08 

E OOOX 
B LLB^U 
~B U*W 
B W-^MMB 
D GXf2-X 
D LBfMB-X 
L WSX^tSA 
L LS^R^LS 
C E^BS 

R GXMBZ G2LBZ 
E3— m — A6 
(GX«0)Q(MB«0)^A 
(G2"0)Q(LB«0}^B 
OPX ADR TO R« 
XFER 0P2 BYTE TO 
M« DECR 6X« G2f 
LB« HIBm 



OX 



— OEsa j 



XX 

E 0000 
A 04L 

*G E*BS 

R GX<0 



OEOB 



B LLB^U 
B U>W 
B W4MMB 
-D GX<2-1 
D LB«MB-»X 
L WSX^LSA 
L LS-^R-^LS 
C l^BS)«iMB 
R GXHBZ G2LBZ 



(GX«0)Q<MB»0)*A 
(G2«0)Q(LB»0)^B 
OPX ADR TO R* 
XFER 0P2 BYTE TO M 



R BQ(A>0)^B 
R SX RSGNS 
C6~ * 



XX — 

00X0 
E(23)^CR 



OEM 



♦X 



R SO 



ZEROS TO L« 



RSGNS 



SET COND REG TO 
XO FOR OPX GTR 
THAN 0P2« 



01 

•€ 0000 



EDS 



S IA+0/2*A 
— S SMXF 
C E(23)*CR 

R I-f^ETCH 

E6~ 
SUPPRESS MEMORY 
IF OFF BNDS 
AND 1 REFETCH 
EXCPNQIA<301*»A 
EXCPNQ(IA(30) 
REF)'»B 



SET COND REG TO 
00 FOR EG COMP« 



XO 



ED6 



R LSGNS 0 

sOtO *Hy|C 



BR ON L SIGN STAT 
(OPX SIGN)* 



XX 



ED7 



R LSGNS SX 

m — SC 



BR ON L SIGN STAT 
AND DEC CRY STAT X« 



QX~ OX JA 

GO TO INVALID 
DATA TRAP 



Q 
S 
2 
0 
2 



--OSZOO- 
(00) 



-AGD 



■OSZOO- 



-AED 



(OOfOXtXOtXX) 



XX — EX3 
--E 0001 
S IA+0/2*A 
S.SMTF 
C "E(23)*CR 

R I-f^ETCH 

C8^ ** — SG 
SUPPRESS MEMORY 
IF OF BNDS 
AND 1 REFETCH 
EXCPNQIA(30)>A 
EXCPN0(IA(30}« 
REF}^B 



BLOCK SG - 

0P2 GTR THAN OPX 

SET COND REG TO OX 



00 — 
-€ OOOX 
S lA-fO/a^A 
S SMIF 
C E<23)>CR 



EXO 



-OTIOS- 



-SGE 



(00«01«10fll) 
TO FREE ENTRY 
OF I-^ETCH 



R I'-FETCH 

G8~ m -""-nJF 
SUPPRESS MEMORY 

IF OFF BNDS 

AND "jREFETCH 
EXCPN0IA(30)^A 
EXCPNQ(IA(30)«REF)^B 

SET COND REG TO 
OX FOR OPX LESS 
THAN 0P2* 



XO ~- 
XXXO 

WSfEKSA 
LSKH.S 
IMO/Z'^A 
E*S47 
I-FETCH 



0EX2 



EXCPNQIA(30)^A 
EXCPNQ(IA(30)« 
REF<*B 

LIKE NF* 



OX — 

XXXO 

WSfE*LSA 
LSfLKS 
IA+0/2*A 
E*S47 
XH^ETCH 



OEXX 



L 
L 
S 

c 

R 

EXCPNQIA(30)*A 

EXCPNQ(IA(30)«REF)^B 
FIRST WORD OF 
I FETCH. 



-<iTXXC 
(OOfOXfXOfXX) 
TO 2HD CYCLE 
OF I«^ETCH 



-^T3X 
(OX) TO 
INTERRUPT 
ROUTINE 



254760 
254765 
255449 
257390 



X2/2X/64 
0X/X3/65 
09/20/65 
Xl/XO/66 



MACH C2050 
NAME 

MODt MANUAL 

P*N* 53648X5 

IBM CORf»* sfiT 



DATE XX/09/66 
LOG 642 



SHEET 
VERSION 



X (^202 



COMPARE DECIMAL <CP) 
OMPARISON OF 1ST WO OPND I 



a 
s 

3 
0 
0 



FROM CH»2 
ASSeMBtY 



XI ~ oes? 

--^ lOXX 
A 

B 

B Wt^GX 

Al~ XX 
LfiNOTH BFR TO t 
2eR0$ TO M 
SCT R t STAT (S7) 
TO JiyrOICATE teFT 
OlOlT TO BC^^ 
P^tOCeSSCO FIRSTt 
3 TO MB 



XX ^ 
tMB^U 

W*MMB 
WS^K^tSA 



ASSf*""* XX "•"^A] I 

AOR OF LCFTMOST 0^1 
BYTE TO t 

L2 LCNGTM TO M(29-3X) 



XX 0e44 
0X00 
M/UR«A 

MMB<#V 
VR*WR 

WR*02 
RKS 

XX •"•••Al ^ 



DIVIOIMG IS ACCOMPLISHED BY ASSCMBLING A NUMBER OF HIGH 
ORDER DIVIDeWD ByTES EaUAL TO THE NUMBER OF DIVISOR BYTES 
CTHIS WILL BE CAUCD THE ASSEMBLED DIVIDEND OR ADH THEN 
SUBTRACTING THE DIVISOR (0PND2J REPEATEDLY UNTIL 
UNPEftFLOW OCCURSe THEN jm DIVISOR IS ADDED BACK ONCE* 
THE HIGH ORDER OUOTIENT DIGIT IS EQUAL TO THE l\UMBER OF 
REDUCTIONS MADE BEFORE UNDERFLOW OCCURRED* THE ASSEMBLED 
t>l^Xtimd IS THEN SHIFTED LEFT 1 DIG« THE NEXT DIGIT FROM 
THE UNASSEMBLED DIVIDEND IS INSERTED INTO THE LOW ORDER 
DIGIT POSITION* THE PROCESS IS REPEATED FOR EACH 
SUCCESSIVE LOWER ORDER DIGIT UNTIL A QUOTIENT LXH.2 IN 
LENGTH HAS BEEN GENERATED* 



AD • ASSEMBLED DIVIDEND* REDUCED AND SHIFTED LEFT 
Om DIGIT POSITION FOR EACH QUOTIENT DIGIT, 

AD ADR • INITIALLY THE ADDRESS OF THE RIGHTMOST BYTE OF 
rm FIELD TO BE USED FOR THE AD» SUBSEQUENTLY 
DECREI^NTED BY 4 UNTIL DVD ASSEMBLY CWPLETE, 
UO * UNASSEMBLED DIVIDEND, THE PORTION OF THE OPl 
FiaD NOT YET USED IN THE AD* THIS PORTION IS 
REDUCED IN SIZE BY ONE BYTE FOR EACm OUOTIENT 
BYTE GENERATED 

UD ADR - ADDRESS OF tm LEFTMOST BYTE OP THE UD 



WS 
WS 
WS 
WS 
WS 
WS 
W$ 
WS 
WS 

wsto 
wsix 
wsxa 



0 
X 
2 
3 
4 
5 
$ 
8 
9 



WORKING Srm FOR DIVIDE DECIMAL 
HIGH ORDER DIVISOR 

OPERAND X ADDRESS (INITIALLY «IgHTMQST^ADR) 
OPERAND 2 ADDRESS OR UNASSEMBLED DIVIDEND ADDRESS 
UNASSEMBLED DIVIDEND 

ASSEMBLED DIVIDEND ADDRESS OR PARTIAL QUOTIENT 

LOW ORDER ASSEMBLED DIVIDEND 

LOW C^DER DIVISOR 

HIGH ORDER ASSEMBLED DIVIDEND 

OPERAND X ADDRESS CINITIAUY LEFTMOST ADR) 

LOW C^DER DIVISOR 4 ftS 

LENGTH BUFFER 

HIGH ORDER DIVISOR / 6S 



STAT 
STAT 



JTATS FOR DIVIDE DECIMAL ^ 
INDICATES DIVIDE INSTRUCTION* 



' OFF „ 

' DECIMAL CARRY STAT 
CONTROL n.mi THRmJGH LOOP* oN STATE INDICATES 
THE LOW ORDER AD WORD IS BEING ASSiMBLED* 
STAT S - SINGLE STAT* ON STATE INDICATES A SINGLE WfjRD 
DIVISW* 

STAT 7 R|GHT-t.EFT STAT* OiM STATE INDICATES THE NEXT 

QUOTI^T DIGIT IS TO BE PLACED IN THE LEFT DIGIT 
POSTICN OF THE NEXT BYTE INITIALLY USED TO 

INDICATE SiNaE DIVIDE CK TEST REQUIRED 



B 

B 
L 
L 

A3~ 

APR OF LEFT OPX BY7E 
PLUS L2 TO SAR9K9WS4 
<THIS FORMS AD ADRi 
L2 TP G2 



XX «~ 0E4A 
OOOX 
R^H 
R34U 
U^W 
W67*L» 
HOTX^ADDER 
WS2^LSA 
R^LS 
$0306 

XX 



TN ON XST TIME STAT 
AD BYTE ADR TO LB 
FORM UD AOR-^ 
AD ADR/X TO R^ WS2 



XX 
D^L 



00 



0E4fe 
\ 



DIVIDEND WORD TO L 



I FORM ASSEMBLED DVD 
00 0EX4 
0X00 
B LLB-^U 
'W'^B U*W 
B W^MMB 
D GX92-X 
LB9MB«*X 
WS«E*LSA 
LS*R*LS 
W#IVD 

Qimi G2LB2 

3^1 



D 
L 
L 
C 
R 

E3« 



0mm 



CGX«Oi;OCMB«OUA 
^G2»0JQCLBs0HB 



OR G2 0 



BLOCK EC - 
MOVE ONE DVD BYTE TO M 
AD ADR TO R 
BR 0N<» 

H3PX EXHAUSTED 

OR M FULL 
*i3P2 EXHAUSTED 
OR FETCH ROD 



BLOCK UE 
MOVE A DVD BYTE 
TO BYTE 3 OF M 
ZEROS TO MCa-23> 
OTHERWISE LIKE EC 



FILLED 

XO — 

oxox 

M*R 

WS9E-»LSA 
R*LS 
S03*^E 



HE 
A 
L 
L 
C 
I 



0EX6 



XX --nJD 



LO AD WORD TO R* WS5 
TN OFF XST TIf*€ STAT 



XX 
0X00 
0*M 
LLB^U 
U^W 
W'^MMB 
GX«2«X 
LB«MB«»X 
WStE^LSA 
LSjRiLS 
W#IVD 

GXMBZ G2LB2 



OEAO 



45^ 



m -»*UE 



(GX«0)0(MB»0)4A 
<Q2»0)Q(LB«0)'»B 



02 DID NOT UFLO 



FETCH ROD OR 
ASSEMBLY cy ^ETE 

mil n wiiii I g XOOO 

A H*L 

L WS*EKSA 
L L-^LS 
R AOtB»0)*A^ 
R S3 62<0 

ASSEMBLED DVD TO 
L AND WS 0 
TEST FOR ASSM NOT 
C^.ETE OR FIRST 



M FILLED 
G2 NOT TESTED 
OTHERWISE LIKE N4 
XX 0EX7 

t WS*E*LSA 
^ L*LS 

R S3 



XO — 
0X00 
R«4*R<)A 
HOTX^ADDER 
L WS^E^LSA 
— R*LS 



OEXA 



AD ADR»4 TO SAR* 
Rf AND WS4 



0 1 WlwM WH >||^l«» " %|| 



G2 UftOWED^ ^ 
NOT r'iRST TIME 



END OF PVD ASSEMBLY 

oex?^ 



mi XST 

||^*%li#<*lMlMMMMMl* 



TIME 



W$2*LSA 
LS*L*LS 



XX 



G2 IFLOWED 
XST TIME 



i XS^T TI^ 



UNASSEMBLED DVD 
ADR TO L 



ZEROS TO M 
LO AD TO WS S 
TURN OFF SINGLE STAT 
TEST G2 FOR UFLO 



XX — ^ OEXB 
--HE OXOX 

A O^M 

L WSfEKSA 

L L#LS 
-<i«««C S03«*|E 

R AOCB»0)M 

" 0 G2<ro 



«aS302«« 
(XX) 



■HTD 



S6>*"^ 



m -^sF 



2S4770 
25477??! 
255449 



, MACH caoso 

02/01+65 I NAME 

62/2sHb mode manual 

0V2046S P*N* 5364aX6 

IBM CORP* SDD 



DATE lO/OX+65 
LOG 902 



SHEET X QS300 
VERSION 



DIVIDE DECIMAL (DP) 
DIVIIHI?ND ASSEMBLY 



r«ow 



(01 > 
FRQH 
QUOTIENT 
STWe 



FROH UNASSH 
DIV FETCH 



aS304tABE~— 

DXVX0E CICCK 
TEST 



FI*OM DOUite 
WORD LOOP 



0 
$ 
3 
0 
2 



0000 J 
A L*A ^ I 

jiji*""" XX """"'"'AA 

Uil AON TU SAH 
SeT MVR REG 
TO CROSS 



XX at:A9 

e ioox 

B R3*U 
--*B U*W 
B W67*UB 
t WSfE^LSA 
t L$*R^LS 
A2— XX ~Ai 

OPl ADH TO R 
XST UP BYTE A0« 
TU tB 



XX -~ QEAA 

e 001 1 

B 

~B U*W 
B W67*«B 
D 0>t 

L WSfE^LSA 

t ULS 

AS**** XX 
UO MOR0 TO Lf W$3 
UFTHOST OPX BYTE 
AOR TO MB 



XX — OEAS 
E OHO I 
B UB*y 
~HI T^WR 
B WR^F 
L WS«CftSA 

C ^♦XVO 
C X^BSi9(^<B 
A?— XX — 
to OVR TO t ^ 
1ST UO BYTE TO F 
SET A BYTE STAT F0« 
FIRST STtf^E 



XX — ^ 
OXOX 

WSffe^LSA 
U5*H*tS 



I 



^0i„iim 



XX •"""M^H 



E 
A 
-A 
D 
t 
L 
R 



0EA7 
i 



to AO TU H 



XX < 
0000 
RH.^T 
BCO 

HOTl^ADDER 
WSfE^tSA 
^S^t^tS 

A9~ *X —AX 
SAVE CAR FROM 0 
0XVXDE CK TEST 
ao AO WO) - <to 
OVR WD) TU tATCH 
SAVE CARRY OUT OP 
AOOER<0) 
MU OVR TO t 
BR ON SXNOtE STAT 



SXNGtE WO OVR 

XX ^ 0E9? 

I R*R 

F^$tMF|4hiH3 



R CSTAT 
EX«^ *X 



OX ^ 
r«-^ OXXO 
I B Wt^MO 
L WS»E*tSA 

t ts*t*ts 



0E20 



SMXFT AD WD tEFT 4 
ENTER XST UD DIOIT 
FROM F TO to OXG POS 
SPXtt HO DIG TO F 
TAKE RESUtTXNG WD 
TO R 

BR ON RESUtT OF 
OXV CK TEST 



la-*- 



XX -HEB 



to DVR TO t 
0 TO MO 



DIVIDE CHECK 

II mmm 0E2F 

E XOXX 

B E*WR 
B W^MD«F 



fJ2-*» OX ^JB 



REDUCT|0^i CYCtE 

XX 0E2B 

I 

A H^^H 
OCO 

0 HOTX^ADOER 



•^C 



XX 

Sl^ADDER 

carryTo^sx 

DEC ADO CORRN^t 
AD DVR TO R 
CORR FACTOR TO t 
SAVE CARRY OUT OF 
ADDER (0) IN SX 



DECXMAt CORRECTION 
XX 0EA3 
E OXXO 
A R«>ttR 

HOTX^AOOER 
0 MOf X 
t W$«E<^tSA 
t tSKKS 
R SX X 



♦X 



TO R 



(AD-DVR)-CORR 
INCR MD 
DVR TO t 
BR ON SX 

(CONTINUE IN tOOP 
UNTIt UFtO OCCURS) 



UFtO OCCURRED 

OX ^ 0E29 

xoxo 
t ws«e^tsA 
t ts^t^ts 



E5-%- 



XX -%HEE 



to DVR / 65 TO t 



XX 0CA4 

A R/t^R 

DCO 
B WR^G2 
D MO^X 
R S7 

mx m^eP 

SX^ADDER 
CARRY <0)*SX 
DEC ADO CORRNtt 

REDUCED AD f <DVR 

f 6S) TO R 

DEC CORR TO t 

DECR MD 

Zeros to md 

BR ON STAT 



SiNGtE WORD tOOP 



REDUCTION tOOP 



DIV CK 
MD»F 



CODE TO 



RIGHT GUOT DIGIT 
OX 0Ea< 
E OOXX 
A R-t*R 

MO^F^U MMB^Vl 
B Vf^WL T'^WR 
B W4HMB 
D HOTXiG-X 
D MB/X 
t WS^E^tSA 
t tSH.*tS 
C S47QE 
R MB«3 X 



c 



(OX) 
TO DOi«^£ 
WORD ROUTINE 



E>^ 



*X 



AD^CWR FACTOR TO 
UO WD TO t 
OUOT DIGIT TO M 
DEC« GX INCR MB 

SET R>0«t TO tEFT 
BR ON M FIttED 



M NOT FIttED 

OX OEXD 

B ttB^U 

?#WR 

WR^F 
WR*IVD 
C X^BSMB 
EBw- 00 —EH 



tEFT DIGIT FROM 
UNASSM DVD TO F 
INTERRUPT IF THIS 

DIG IS NOT VAtID 

DEC 

SET BYTE STAT FOR 
ly^XT OUOT BYTE 



00 
OXXO 
R^R 



tEFT OUOT DIGIT 

IX — 0E8B 
E OOXX 
A R-t*R 

MDfF^U 
B Ut^Wt VR^WR 
B W*MMB #—0 
D HOTX*ADDER 
t WSfE^tSA 

R Bfi(AaiX)^B 
R GX»0 0 

AD - CORR TO R 
UD WORD TO t 
QUOr DIGIT TO^M 
SET R*t TO RIGHT 

BR ON omr COm^ETE 



00 • 

ttB^U 
U*W 



0E24^ ^ 



E 
A 
-A 
B Wt*MO 
WSfE^tSA 

t ts^t^ts 

Ef^ XX 



0E2Q 



FfSt4#F 



SHIFT AD tEFT 
ENTER F INTO tO POS 
SPItt HO DIG TO F 

(SHOUtD BE ZERO) 
DVR TO t 
2ER0S TO MO 
GO TO REDUCTION 

tOOP 



■■H3IS30 6 ' ' ■' ■ E (?F 

(XX) 

TO QUOTIENT 
STORE 



tB/X 
WPtlVD 
AQ(B*X)^A 
.0 tB«3 

CaJOT NOT COMPtETE 
RIGHT DIGIT FROM 
Up TO F 

INTERRUPT IF THIS 
DIGIT IS A SIGN 
DECR tB 

BR ON FETCH ROD 



iii<ai$3o 6 "***">>*""'"JHD 
(XX) 

TO UNASSM 

DIVIDEND 

FETCH 



INTERRUPT FOR 
DIVIDE CHECK 



BEGIN FiNAt (JUOT STORE 
1.1 w 0E27 
E XOXX 

— ^ St4#F 

B ttB^U 
-«*t WSfE^tSA 

t tS*R#tS 

C tfRSGNS 

NX-^ XX 



IF X^tSGNf 
iRSGN 
IF +*0*tS(a\i 
IF NOT SGNtTRAP 
SIGN TO MVR POP TEST 
Re«^IN|NG AD tEFT 4 

taiGTH BFR TO R 



XX ^ 0£A| 
lOOX 
R3^U 
U*W 
WR^G2 
WSfE^tSA 
tS*R*tS 

RSGNSI 
X* 
TO R 



E 
B 
HI 

B 

t 
t 
R 

N2^ 



SIGNS AtlKE 

XO — ' 0E8C 
E XlOO 
A R*A 

nB MMB^V 
B Vt^Wt E*WR 
" W*MMB(E?) 



OP X ADR 
12 TO Ga 
BR ON RESUtT OF 
SIGN TESTS 



GX**»X 
WSX^tSA 



iHr^ B 
D 
t 

t tS^R^tS 
N3— XX -HyiC 
AtTER EMIT IF 

ASCII BIT ON ^ 
PtUS SIGN TO OUOT 
DECR GX 

nuk, ADR TO sar 

RTMOST OPX ADR TO R 



XX 
0000 
M#Di»(BS 
R3*U 
U^W 



OEA| 



PtUS TO REMAINDER 
OX ^ 0E9X 



QmpwmB WS^^MB 
D 3i>t8 
t WSX^tSA 
t tS^R^tS 
C e^BS 
R tSGNS 



BRANCH ON 
DIVIDEND SIGN 



MINUS SIGN TO OUOT 
OTHERWISE tIKE N3 
XX ^ 0E8P 

E XXOX 

A R*A 

MMB#VI 
Vt-^Wt E*WR 
W*>WI(Et) 
GX-X 
WSl^SA 
tS^R*tS I 



E XXOO 
B ttB^U 

Ut*Wt E^WR 
W^MIW(E*?) 
Gsh-X 
tBfMB-X 



uisMB 



D 
D 

C 

R GXMB2 G2«0 I 
N7«^ 1^ *<^G 
^TEP EMIT IF 

ASCII BIT ON 
(GX«»0)0(W«0)*A 



to Gltt5T BYTES TO SDR 
RTfCST OPX ADR TO R 
BYTE ADR OF RTMOST 

OPX BYTE TO MB 
3 TO MB 

RESET BYTE STATS 



B 
B 

D 

t 



PtUS SIGN AND to 
DIGIT TO RMDR (IN M) 
SET CORRESPONDING 

BYTE STAT 
DECR tB MB Gg 
BRANCH ON- 

A--M FIttED 

B-RMDR COMPtETE 



XX — 0E93 
E XXOX 
B ttB^U 
B UL^Wt |4WR 
B W»MMB(Et) 
--^0 G2-X 
D tBfMB-i 
C X^BSiO^B 
R GXMB2 G2»0 
(kBmm lon^ — sG 
AtTER EMIT IF 

ASCII BIT ON 
(GX-0)0(MB»0)*A 



MINUS SIC^ TO RMim 
OTHERWISE tJKE N7 



-GT3X 
(OX) 
TO INTERRUPT 
ROUTINE 



>BE 




*-QS30{ 



IGE 



t00«0XfX0«XX) 
STORE 
REMAINDER 



XX «^sc 



25344^ 



02/23+6S 
09/204^3 



MACM 
NAME 
MODE 
P«N« 

IBM CORP# 



C20S0 

MANUAt 
53648X7 

snD 



DATE 

too 



10/01+65 
902 



S>€ET 
VERSION 



X 0S302 



nt\m DFC (DP) SIGN INSERTION 
SINGtF WORD DIVISOR ROUTTNE 



(OK) 

CMgCK TiST 



COO) 

FROW OUOTieNT 
STORE 



OX 0690 XX *~ OfiBi 

e 0001 

C $47QE 
R 8«<M1)*I$ 
R CSTAT S» 



-•»A SCO 

0 CSTAT*AOI)ER 



1*^ 0 A 



SAVE CAR FROM 0 
COWTXWUe OXV CK tIist 
CMO AO) • tMO OVR) 

TO T CARRY XNTO 

AOOEROi) FROM IQ 

SUHTRACTIUN 
SAVe CAHRY OUT OF 

ADDER (0) 



$HXFT 10 AO WD LCF? 
4 iWTER ZERO IIVTO 
to DIOIT POS SFItt 
HO DIOIT TO F TAKE 
RESUtT TO R 
BRANCH ON- 
A^ARRY STAT 
B-440 DVR ZS 2ER0 



ADD DVR BACK TO AD ONCE 



00 0E2C 
OXIQ 
M*H 

F^i*t4#F 

WL*MD 
wi«E*LSA 

IX ~aC 



IX 



0696 



DBL WD DXVXDE 
NOT DIVIDE CHECK 
SHIFT HO AD WD LEFT 4 
ENTER HO DiaiT FROM 
LO ad WOf^D SFIU. 
HO ZERO TO F 
to DVR TO t 
ZEROS TO W 



A NH»^R 
DCO 

D HOTl^ADDER 



UFLO 0CCUR«6D 

OX 0E94 
E lOIO 
L WSfE^tSA 



E 0000 
A R«1^R 
"1^ HOTI^ADDER 
t WS^E^LSA 



OEBO 



AS— XX — a6 
Sl#ADDEf« 
CARRYtO)^! 
DEC ADD CORRNH. 



ilfi AD) - <L0 DVR) 
TU H 
DEC CQ*%R TO t 
SAVE CARRY IN SI 



XX 



XX -« 

^ H*HL^H 
"A DCO 



OEAB 



aO AO * to DVR) 

* corr factor to 

HO DVR TO t 



E1-— XX 
(to DVR / 6S) TO t 



XX DEAD 

DCO 
D MD<»I 



EjjS"''''*' Xx ••'*'£] ) 
Sl^ADDER 
CARRYfO)*SX 
DfiC ADD CORRN*t 

(to AD) f (to DVR 
/ 6S) TO R 



REDUCTION tOOR 



A?~ XX —AO 
SX<^ADDER 
CARRY (0)*iH 
DEC ADD CORRN^t 



CHO AD) • (HO DVR) 
TO H 

ENTER SX AS CARRY 
INTO ADDEROX) 
SAVE CARRY OUT OF 
ADDER(O) IN SX 
Dec CO«R TO t 



OEAC 
I 



XX • 
OXXO 
HHL^H 

HOn^ADDER 
MD/X 

WSt6#tSA 

ts^t^ts 

SX 1 
sQiX •"■■"AH 



(HO AO HO DVR) 
• CORR FACTOR TU H 
to DVR TO t 
INCR MD 

BRANCH OUT ON UFtO 



1 



XX 1 
E XXOO 
A R<-t^R 

HOTX^ADDER 
t WS^EKSA 
t tS*tH.S 



OEAE XX OEAF 

I H/t*H 
DCO 



XX -HSC 



S7 



PARTIAL SUM MINUS 
CORR FACTOR TO R 
CHO DVR t 6S) TO t 



♦X —ED 
Sl^ADOeR 
CARRY(0)*SX 
D6C ADD CORRN^t 

<H0 AD) 4* (HO DVR 

/ 6S) TO H 

BRANCH ON R«t STAT 



RIOHT CajOT DIGIT 
OX — 0E95 
fi OOXX 
A H-ttH 

MDfF^U MMB^V 
B Vt^Wt ?*WR 
B 

D HOTX^ADOER 

D WB/X 

t WSfE^tSA 

t tS*L#tS 

C 54706 

R Ba(A»X)^B 

R MB»3 0 

Jlm^ m -^A 
FART SUM • CORR TO H 
UD TO t INCR MB 

OUOT Dl<5|T TO M 
SET n/L STAT TO tEFT 
BR ON M FittED 



LM NOT FittED 
^, 00 — OEXC 



B UB^y 
I B WR^F 

♦— 0 D GX-: 



T*WR 



c wrVivd 

C X^BSiKMB 

J2— XO •"vJB 
NEXT UNASSEMBLED 
DIVIDEND DIGIT TO F 
CK FOR VAtID DEC DIG 
SfiT BYTE STAT FOR 
NEXT OUOT BYTE 
DECR GX 



JO — 0622 
E OXXO 
A R4R 

-A F#$t4*F 
B Wt^MD 

WS«E^tSA 
t tS^LKS 
vM— XO -"-NlD 



SHIFT to AD LEf 
ENTeR UD DIGIT FROM 
F INTO LO AD 
POSITION SPILL HO 
DIGIT TO F LO DVR 
TO L ZEROS TO MO 



XO 

I 

A H*H 
-A 



062A 



E 
A 



0697 



LE**T omr 

XX ' 
OOXX 

MDtF^y 
ULH^WL VR^WR 
W^f^WB 
M3TX^AD0ER 
WS«6^LSA 

n GX«o X 

NX~ 0% 
(HO pARTlAt SUM) 
IDEC CORR) TO H 
^J?'^r TO M 
SET R*t STAT TO RT 
BR ON «HJOT COMPUTE 



B 

B 
D 
L 



OUOT NOT COMPLETE 
OX — 0625 



J5^ 



F*SL4*F 



XX — JE 



DIVIDE CHECK OR 

HIGH ORDER DIVISOR IS ZERO 



•QS302 
(OXfXX) 



SHIFT HO AD LEFT 4 
ENTER SFILLED DiGiT 
(FROM LO AD) INTO 
LO DIGIT POSTION 
SPILL MO ZERO TO F 
RETURN TO REDUCTION LOOP 



LLB^U 
U*W 
WR^F 
LB/X 
WR^IVD 
X LB»3 
N2^ X* — NB 
NEXT UNASSEMBteo DIV 
DIGIT TO F CHECK 
FOR iNVAtID DEC DIGIT 
INCR LB 

BR ON OPX (UNASSM 
DIV) FETCH REOD 



-^S306~ 
tlx) 
TO OUOTIENT 
STORE 



-JAF 



-aS30 
(XX) 

TO UNASSM 

DIVIDEND 

FETCH 



fBE 



•KSiS302 
(XX) 
TO tAST _ 
flttJOTIENT STORE 



aS306#%|FF-^ 

(10) 

FROM MASSM 
DIV FETC^ 



I i MACH C20S0 

I ?54772 02/23+*5 NAME 

i 2SS449 09/204^5 MODE MANUAt 

I P«N« 536481$ 

I I IBM CORP* SDD 



DATE i0/0l465 
LOG 902 



SHEET 
VERSION 



X 05304 



DiVInE D6ClMAt (DR) 
DOUBtE WORD DfVtSOR ROUTINE 



WD MOUTXNe 



11 

0<E 1001 



oei*' 



] MDH cr CUKRfiiMI QUOT 

I wa«D TO t 

SAV£ It ma (to AD) 
XM WS 9 



XX 



OfiBS 



i>TOWe QMOTieWT WORD 



OyOT MDH TO SAH 
AND N 



XX ' 
£ 1001 
A R/*K 
WS^e^LSA 



oeB| 



XX —AD 



XHQH OUQT ADR BY 
4 FOR NCiXT STORe 
AlVD SAVe IT XH WS 9 

pesToRE R Reo ao 

AD) l»ROH WS 9 



XX — 
0011 

WSqEKSA 

L " 
C 

R 0 



QtB? 



$03S^«0*B$ 



S5 
0^ ••wwAj 



55 OAI ao TO SZAIGtt: WORD ROUTINE 



COMPtETE OUOT iVICS 
TO SDR 

RESET BYTE STATS 
UNASSM DXV TO t 
STATS 2 AND 3 WOT 
SIONIFICANT WERE 
DR UN SlN(9tE STAT 



-assoae* 

(01) 



-AtE 



TU SINafe WORD 
DIVISOR tOOR 



(00) 
TO DOUBLE WD 
DIVISOR tOOR 



iEE 



as302,JHD— 
(11) 

FROM SiNCStE 
WORD ROUTINE 



aS304«NBE«- 



11 

"'I 

A R^L 
t WSa^LSA 
tS^Rft^LS 



FETCH DIVIDEND WORD 

0E23 XX — 0EB2 

I 



XX 



A R+4KfA 
-t WS2KSA 
L tS^RfUtS 



XX •"•-JB 



XX -~ 
0011 

WStEKSA 
UtS 



0EB3 



vS"*"» 



XX ~JE 



R (to AD) TO L 

AND SAVE IT IN WS 2 
OtD UNASSH DIV PROM 
WS 2 TO t 



OtD UD ADR / 4 TO 
SARf t AND WS 2 
RESTORE R FRCW WS 2 



NEXT UNASSEMBtED 
DIVIDEND WD TO t 
AND WS 3 



XX — 0EB4 
0110 
R*R 

F^StW 

Wt*MD 
WStE^tSA 

ts^t^ts 

1 S5 

1* — gF 

SHIFT to AD tEFT 4 

ENTER NEXT UNASSM DiV 

DKJIT FROM F INTO tO DIG POS 

SPItt HO DIGIT TO F 

to DIVISOR TO t 

ZEROS TO MD 

BR ON SINGtE STAT 



S5 ON • GO TO SINGtE WORD ROUTINE 



-QS30 2 J FF 

TO SINGLE WORD 
ROUTIME 



-aS304— 
(10) 
TO DOUBtE WD 
ROUTlf^ 



a 

S 
3 
0 
6 



254772 
25S449 



oltlotSi 



mach 

NAME 
MODE 
P#N* 

IBM CORP, 



C2050 

HANUAt 
5364S|9 

son 



DATE 

too 



104^l4l>5 

90a 



DIVIDE W!CTMAt 
OUOT STCmE. 



SHEET 
VERSION 

„ fOP) 

DIVIDEND Pll^ 



1 05306 



10 



00 



C X^i$#1B r 

<0E»O)SI<tB»0I^B 
mxr AD BYTC TO M 
SiT BYte STMT 
DeCR LB MB 02 
TeST PoH STORE OR 
FETCH RCOUXWED 



0E30 
I 



C00f0l«X0fXl) 
FROM FlWAi. 
aUOTlBNT STOI^ 



B UB^U 
B U^W 
B W^MMB I 
t) i 
5 U<MB-X I 
C 3,^B$i9(MB I 
R QiMBZ Q2t.B2 I 
~AB 
<ai«0)0(MB»0)*A 
t02»0)»<LB*0)*B 
ASSEMBLE REMAINDER* 
MOVE AD BYTE tU M 
SET BYTE STAT 
DECR tB MB 02 
TEST F0»^ STORE 0« 
FETCH RECaiXKED 



FETCH OR END I 
01 0E31 I 



I 
A 



R Afl(B«0)^A 
R 0 02<0 
E2H* 



END - STORE RMDR 
^ 01 0E35 



R^A 



E3-^ 



TEST 02 FOR UFLO 
SHIFT HO AD WORD 
LEFT 4 AND OATE IT 
TO L FOR CASE WHERE 
RMDR IS NOT COMPLETE 
ENTER F INTO LO DIGIT 
POSITION OF AD 



OPl ADR TO SAR 



STORE REOOIRED 

10 — 0E32 

I 



A R^A 



UPDATE OPl ADR 

XX -~ OEBB 

A R^^R 
— D HOTl^ADDER 



XX m0^)B 

OPl ADR TO SAR 



XX 

E 0000 
A M^DiKBS 
E*BS 



0eB9 



XX •^-^D 
OPl ADR - 4 TO R 



R I 



02<0 ^ 

1* 



ASSEMBLED REMAINDER 
BYTES TO Sm 
RESET BYTE STATS 
TEST 02 FOR UFLO 



FETCH m END 
AND ST^ ^^^lll^ 

F^St4^F 



N2«— 10 -H^B 

SHIFT HO AO WORD LEFT 
4 AND OATE IT TO L FOR 
CASE WHERE REMAINDER 
IS NOT COMPLETE 
ENI^ F INTO UQ OIOIT 
POSITION W AD 



BCOIN IHFETCH 



1110 

WStE^LSA 



0E37 



C 
R 



^ LS^L^LS 
S lA/0/a*A 
E*S47 

£XCPNQIA(30)^A 
EXCPNQCIA(30UR£F)4B 

lAR OR IAR4'2 TO SAR 
SET STATS 4-7 
SPECIAL 4-VAY IHFETCH 
CCW^IDITION BRANCH 



■%w#»i H 3iTil< 



(Od«oitiOfii) 

TO 2ND CYO.! 
OF I-^ETCH 



S 
3 

0 
$ 



3*54772 
2»»449 



02t23/6S 



MACH 
NAME 
MODE 
P«N* 

IBM CORP* 



C2050 

MA^JAL 

S3ft48?0 

SDD 



DATE 
LOO 



10^)1/65 
902 



VERSION 



1 OSSOB 



DIVIDE DFCIMAL CDP) 
R&^INOER ASSEMBLY 



FROM I-^KTCM 



iXOOXX — ^ C30 
I OlOX 
» WR*F 

L UtS 

c e*s<»7 

XX ---MA 

MULTXFUY OeClWAL 
to NPCW <PP2) W0 
TO WS5 
TN ON SlWOte STAT 
AI^D SintOtS OXVXDfei: 
CHect< TCST STAT 



XX ^ ODxa 
e 0X00 

A 0*M 
-A OCO 

t WSf£^tSA 
t L^US 
A2<"-* XX <"«*Ai 



SX^AWDfiR 

CA«RYC0I*SX 

Dec A0O CORHW^t 

Sixes TO Lf WS 4 

TN Orr 0eC CARRT STAT 



XXOXXX ^ C34 
E 0X01 
B WR^F 

L WSte^USA 
t ULS 
C e^S47 
EX*%- XX 



OlVIpe OCCIMAL 
to DVR (0R2) WD 
TO LfWSS 

TN ON SIN6LC STAT AND 
SINGte DXV CK TEST STAT 



XX 

E XOOO 
A O^H 

3*«S 

C S03QE 



0DX6 



XX -%€B 

ZEROS TO M 
3 TO MB 

TN OFF MRY R t STAT 



WS 
WS 
WS 
WS 
W$ 
WS 
WS 



WS 

wsxo 

WIX 
WX2 



8 - 



WORKXNO STORE FOR HULTXPtY DiC (AND DIVIDE W^«E 
CONMON* INDICATES DOUBLE USAGE* ^ 

HO HFCNCDVR) DBtED HO HPCN / 6$ 
OFEHAND X ADDRESS TlNITlALU THE RlOHTMOST ADR) 
RIGHTMOST 0R2 ADR HO RA«T1AL FROOUCT 
LO^FARTIAL PRODUCT 

TWFORARV OFNO 2 WORD STORA^ ^ . . _ 

to MFCN(DVR^ MFtR FROD WORD (MRLR 0|G|TS ARE 

REPU^CED AS USED WITH PRODUCT DIGITS) 
DOUBLED to MFCN / 6S 
tow ORDER MPCN 4* 6S 
tENGTH BUFFER 
HIGH ORDER MPCN / 6S 



S 
4 
0 
0 



STATS FOR MUtTlPtY (AND DIVIDE Wf€Re C0MM5N) 

STAT 0 - RIGHT tEFT STAT» ON STATE INDICATES NEXT RROD 
DIGIT TO BE INSaiTED IN tm LEFT DIGIT POSITION 

cr THE mxr BvTEt 

AtSO USED (INITIAttY) AS THE waTlPLY INSTR STAT 
ON STATE THEN tNDlCATf S MUtT|PtY BEING PERFORMED 

STAT X - DECIMIU. CARRY STATt 

STAT S ^ SINGLE STAT INDICATES A SINGLE 
W&^D MPCN (DVR)« 



XX «~ ODZe 
E OXOX I 
L WSfEtLSA I 
-t LS*L*tS lijF- 



XX 



ODOS 



A3'*"''"' 



XX 



to rrcN wo to t 



ttB*U 

Ut*Wt V«^WK 
W^MMB 
GX«2^X 
tBfMD--X 
Wt^XVO 
t^RSGNS 
Aft<B»X)*A 
GXMB2 G2tB2 
A4«i*^ jO* •*"AD 
IF -fX^tSGNf 
iRSGN 
IF ffO^tSGN 
IF NOT SGNfTRAP 
(GXPO)QiMB«0}^A 
<G2«0)0(tB»0HB 



4ta 



0 

c 
c 

H 
R 



0004 



♦STO MPCN/DVR IN WS 



XO 



D06 



M*T 
DCO 

WR<#F 
WR^IVD 
S5 X 
J3-- ^X 
SX^ADDER 
CARRY(Q)*$X 
DEC ADD CORRN^t 



00 



I \ MB*3 



0008 



♦X —CD 



MORE THAN 4 BYTES 
IN 0P2 FlEtD AND 
G2 HAS NOT UFtOWED 
CHECK FOR SPEC ERfW 
(IF M IS FIttEDt 
02 WAS GT 7) 



00 

ttB*U 
U*W 
8 WtMMB 
r»D GX«2»X 
I D tBtMB-»X 
f C w*iyD 
I R AO<i«X)*A 
I R GXMI»^ G2tB2 
I AS""*"' *'**AE 
I (GX»0)a(MB«0)^A 
I (G2iiO)0(tB«0)^B 
I 
j 



XX 

E OXXO 
B E^WR 
B W^MOfF 



004A 



OX — AF 
H FXttED TWICE AND 
G2 HAS NOT UFtOWED 
THUS 02 WAS GTR 
THAN 7 - A SPEC ERROR 
tOAO COOe FOR SPEC 
ERROR INTU MO F 



I 

A 

D 

Li 

I 

E5^ 



OX 



0048 



R-^^RfA 
HOTX^AODER 
WS2^tSA 
R*tS 



XX w-EE 



M NOT FittED* 
FETCH NEXT 0P2 WD ^ 
0P2 ADR-^ TO SARfWS2 



E 
A 
t 

R 
R 



DOUBtE WD MRCN DVR 
OX 0D09 




SHOUtD BE FItLED 
AND READY TO BE 



M 



STORED- GX SHOUtD 
NOT HAVE UFLOWED, 
SIXES TO L 
RIGHT DIGIT OF 
NEXT BYTE TO F 



XI 



D07 



DCO j*-H3 
L WS2^LSA 
L LS^R*LS^_^ 
R S5 G2<0^ 

SX^ADDER 
CARRY (0)*$X 
DEC ADD CORRN^L 

T^^k^^l COMPLETED 
OR CF2 FETCH ROD 
(M MAY ALSO BE 
FILLED OR GX MAY 
HAVE UFLOWED) 
SIXES TO L 
OP 2 ADR TO R 
ZEROS TO F 



HO <^CN(DVR) WORD 
READY TO BE STORED 
SHIFT M RIGHT 4, 
ENTER ZEROS IN HIGH 
ORDER DIGIT PQSi 
SPItt LO DIG TO F 
TAKE RESULTING WD 
TO R AND WS 0 



BR ON HO ZEROS 



iO 
R-4*RfA 



D HOTXl^ADDER 



ODOA 



XX 

xxoo 

WS^E^LSA 

R^LS 
S470E 
AQ(B»0)*A 
GKO G2<0 



0D4D 



E6-^ 



i 



SAME AS SMXOC PLUS 
TN ON SINGLE STAT 



0D4C 



XO ' 
XXOO 
Rk*R 
WStE^LSA 
R^LS 

AO(B«0)'^A 
GX<0 G2<0 



L 
R 
R 

HO MPCN(DVR) WORD 
/ SIXES TO RtWSXZ 

branch on- 

msx less than zero 

«<p2 less than zero 



wsa^uA 

R*L$ 



Xx -HMD 



FETCH NEXT 0P2 WD 
0P2 ADR-4 TO 
SARt WS 2 



LO MPCN (DVR) WRD 
READY TO BE STC^ED 
SHIFT M RT 4f ENTER 
F IN HO DIG POSITION 
TAKE RESULTING WO 
TO R AND WS 6 

XX — * 0OOB 

A M#R 

4k F*3^4*FI#^ 
L WSfE'^LSA 1 
L R^LS 1 




XX — -sn 



XX — ODOD 
OXOX 
WR^F 
D*L 

WSfE^LSA 

kL^LS 
MB»3 0^ 
N9«^ 4i0 



NEXT 0P2 WORD 
TO L* WS 5 
BR ON M FILLEO AND 
READY TO is STORED 



LO I^OM(D\m) WORD 
^ SIXES TO L* WS 10 
ZEROS TO F 
BRANCH 0N«» 
MJX LESS THAN ZERO 
«<|2 LESS THAN ZERO 
XX ODX 
E XOXO 
A R4L*L 
— B ^♦F 
L WS«E^L$A 
L LH.S 
R BO(A«X)^i 
R GJ<0 G2<0 
S5— -"wSE 




ASSEMBLE NEXT 
*^CN DVR WORD 

00 ODOo 



0101 
0*M 

WStE^LSA 
IS^L^LS 
S47,^E 



XO 
OXXO 

W^MD«F 



0D02 



e^WR 



BLOCK AD - 
BEGIN ASSEM8LY 
XST 0P2 BYTE TO MVR 
LEFT DIGIT TO M 
TEST SIGN 
BR ON FETCH 
OR STC^E REOUXRED 



DOUBLE WORD MPCN(DVR) AS$E^mLED 



i>iQS4o2'"*">^^"'''^FD 
(OX) 

0P2 ASSEMBLY 
COMPLETE 



E7-P» 



OX •-CG 



INTERRUPT 

G2 WAS GTR THAN 7 OR 
(»2 WAS GTR THAN GX 
LOAD CODE FOR SPEC 
ERROR INTO MD F 



INTERRUPT FOR SPECIFICATION 



IX 

E OXXO 



W^fF 



0D03 
E-^WR 



CI7-. 



-QTSX' 
(OX) 
TO INTERRUPT 
ROUTINE 



iFE 



OX -*-JG 



INTERRUPT 

G2 WAS GTR THAN GX 
OR G2 WAS « TO GX 
LOAD CODE FOR SPEC 
ERROR INTO MD F 



SINGLE WORD MPCNiDVR) ASSEMBLED 



-aS402«< 



*SE£ 



(OX) 
0P2 ASSEMBLY 
COMPLETE 



WORD 



Ra.OAD OF 2 
IeROS^ TO M 

TN OFF SINGLE STAT AND 
00 ^SW SINGLE DIV CK TEST STAT 



I 



2»47$0 
2S4770 
2SS094 
25S449 



o4oX/6S 
0t4<^X/65 



MACH 
NAME 

Moni 

P«N« 

TBM CORP# 



C2050 

MAr^A( 
S3«482j 

son 



DATE 
LOG 



X0i0X/6S 
962 



SHEET 
VERSION 



1 08400 



NJLTIPLYf DIVIDE DEC (MP. Dpi 
OPND 2 ASSFMBLY (MPCN/DVR) 



(01) 

FKOM 0**2 



FROM 0»»2 



m 0X10 



OpOl 



B WR*F 

R SO 
A I— XjH — AA 



to MHCN(»VH) WOHO 
TO R 

2ER0$ TO F 

BR ON MUtTIPLY STAT 



XO 



oee6 



ZKROS TO H 



A Ri^ft 
A OOCO 



t 

si^Aooen 

CARNY(0)*SI 
Oec 0Bt CORRW^t 

MUtTIRLY 
iST STe** Of* to 
MRCN OBtlNCi 
SHIFT to «RCW 
LWFt 0N€ 

CORRgCTlOW FACTOR 
TO t 



XX 

oioo 

R/t*R 
BCO 

WSfCKSA 

t«^t^ts 



096 



XX ~AC 
SMVe CAR FROM 0 
FINISH DtttXMO*^ 
CORRiCTXON -f SHIFTCP 
WRCN TO R 

Sixes TO t 



XX — ^ 

6 1000 
A S+t^R ^ 

WR^F 

WS«ei^tSA 
R^tS 

S9 
W «>w»iAj| 
SIXES / D»tfc0 to 
WPCW TO Rq WS 8 
(TO BE USE0 IN 
EXCESS 6S ABOITION) 
BR ON SXN<»tE SrAT 



B 
t 



XO — - 
0000 
li^S^e^tSA 
tS^R^tS 



0050 



XX 



O09A 



t 
t 
I 

I 

i 

AS— 



A R*R j 
-A O0CO U^StX^rjjJi- 



XX 



0Bt WUR0 MRCM«» 
MO MI»CN W0 TO R 



SINGtE WOR0 MRCN 



S1^A00ER 
CAWRY(0^*S4 
OeC 0Bt CORRN^t 

IST STER OF MO 
HFCN OWLtm 
SHIFT MU MRCN 
tEFT ONE 

CORRECTION FACTOR 
TO t 



XX 09B 
E 0X00 
A R+t*R 
-0 CSf AT*A00ER 
t WSfg^tSA 

t ts^u-^ts 

XX ~A<* 



CORRECTION FACTC^ 
/ SMIFTE0 mm TO 
SIXES TO t 



XX 

E 0000 
A R4t*R 
«-t W$»E*tSA 



O09C 
I 



I. R*tS 



XX 

E XOOO 
t WSX^tSA 
-t tS^R^tS 
C S030E 



O0!5|. 



XX ~AH 



SIXES / 0BtE0 HO 
Ml*CN TO Rf WSfO 



XX 



R|<»MT«OST OPX AOH 
TO R 



R ON 



XX 



0034 



B 



R*A 
R3«U 

B W6r*tB 

ix— XX --njA 



OR X A0R TO SAR 
LO MRtR BYTE A0R 
TO tB 



XX — 0038 
C OXXO 
B RS'^U 
-HB U^W 1 
B W67^MB 
0 ©♦t 

t WStE^tSA 
L tKS 

J2h*» XX --»%JC 
to HRtR WOR0 TO t 
AN0 WS6 

to MRtR BYTE A0R 
TO HB 



XX ' 
E 00X0 
A O^R 



0040 



W 

WSfE^tSA 
R*tS 

IV0/RS6NS 

XX —-JO 



XX — 
OOXX 
t*M 

WS«E^tSA 
R*tS 



0044 



R 



QiS404 ♦ AE O ** " **' ^ ****''' 
CXX) 

FRCN StmUEL 
WOR0 Lt 



aS404»NFE*" 
(OX) 

FRC^ MRtR 
FETCH 



IF ^R$<5N 

IF NOT SGWfTRAF 

ZEROS TO R TO WS2 

TEST OPX SION 

R SlON IS ORF 

IF 0R2 SION WAS RtUS 



RSONS 

X* 



TO M 



XX 

E XXOX 
B E^WR 
W^HHB(fi?) 



O04F 



XX 

AtTER EMIT IF 
ASCII BIT ON 
MPCN AN0 MPtR SIGNS 
UNAtIKE9 MINUS SION 
TO RIGHTMOST OIGIT 
POSITION OF OPX 



R OFF 

XO — 0045 
E XXOO 

B E^WR 
B W>MMB(E?) 



<xx) 

TO OECXMAt 
0IVI0E 



to MPtR WOR0 
SEROS TO W$3 
BR ON R SIGN STAT 



XX 

AtTER EMIT IF 
ASCII BIT ON 
MFCN AN0 MFt« SIGNS 
AtlKEf FtUS SIGN 
TO^RIGMTMOST BIGIT 
POSITION OF OPX 



B 
B 
B 

t 
t 
C 
R 

NX— 

to M: 



ox 

00X1 
LtB^U 

Wt^MB 
WS,E^tSA 
tS^R^tS 
^C^IVB 



0055 



S« ^ 
X* -hma 



Ml t 



SINGtE WOR0 MPCN 
XJ 0053 
XOlO 

WS*E*LSA 

ts*t*ts *ei 



0 



R M03»O 
N2— 



MO^O 
9N» -«*^B 



E 
A 
A 
t 

H3^ 



00X3 



XI 
OlXO 
R^R 

SR4^F 
WSfEKSA 
tS^tKS 




XX 

€ XOOO 
A t*M 
S03»^E 



O09E 



XX -*NC 



RTIAt PROB TO R| 
NEXT MPt« 0IGIT <RT|| 
TO M0 



(to MPCN / 6S) TO t 

BRANCH ON* 
*m,R OIGIT m 0 
-MPtR OIGIT EVEN 



0IGIT m 0 
SHIFT pARTlAt PRO0 

MPtR PRO0 TO t 



0S404»Eie— 
(XX) 

FW pOUm^E 
WOR0 tCK3P 



HO PART PRO0 TO t 
BR ON-MptR 010 9 0 
-MPtR 0IG EVEN 



a 

S 
4 
0 



XO 
00X0 

WSfE^tSA 
tSK*tS 



0052 



R M03»O 

sa«- 



M0ttO 

m •^SB 



MPtR BIG « 0 ^ 
SHIFT HO PART PRO0 
RT 4t SPItL to BIG 
TO Ff TAKE NEW m 
PART PrO0 to tf 
XX O0OF 

C poxo j 

A SR44F I 

t WS«E#|,SA I 
t#LS 



# SHIFT to PART PRO0 
I RIGHT 4 ENTER 
I 0IG mm F TO MO 
POSITION SPItt 
I to 0IG TO F 
W*tR PRO0 WOR0 TO 
XX — O0<IF 
t-K|iE OXXO 
A R#R 

t WSfE^tSA 

t ts*t*ts 



XX •^sc 



I 



SO 
N5*** 



004? 



*X -H^E 



OX 
JOOO 
M0fF^U MMB^V 
Vt^Wt UR^WR 
W^MMB 
S030E 



XX 



XX — 
OXXO 
M^t 
ttB^U 

Wt^MB 
WSfEKSA 

t^ts 

Wt^IVO 



0090 



t 
t 
C 
R 



PROB 



to OPI VOR0 (W 
SIGN) TO t» WS 6 
XST MPtR OIGIT TO M0 



NOT m Of GO TO SINGtE W0 tOOP 



MPtR PRO0 TO M 
PRESET R t STAT TO 
IN0ICATE RIGHT MPtR 
OIGIT NEXT 
BRANCH ON R t $TAT 



R«3TE- 
p/t STAT WAS Tl^NEB 
ON (SET tEFT 
0IGIT) BUYING 2N0 
tEVEt I-FETCH 



i 

»B 
B 

0 
0 



XX 



O04B 



tO^PARTIAt PRO0 
0IGIT mm F TO 
RIGHT 0IG POS tr 
MPtR PRO0 W0 PER MB 
SET R4t STAT ON TO 
IN0ICATE NEXT Pf^0 
OIGIT IS TO BE INSERTE0 
IN tSFT SI0E m BYTE 
OX -~ 0054 



BR ON MB EVEN 



-as4c 

(OOfXO) 
TO SINGtE 
WOR0 tOOP 



MB NOT m 0« GO TO 0Bt W0 J^TIPtY tOOP 



I 



XX -^S0 



M0,F*U MMB^VI 
I^Wt VR^WR |j«p-KJ 
W4MMB 
GX-X 
tBtMB-'X 
l*BS#^B 
GXMB2 

(GX»0)0(MB«0)*A 
SET tOWeST ^0ER 
PROB 0IGIT FROM 
PARTlAt PR00 INTO 
tEFT 0IG POS OF 
mjl pROB W0 PER MB 
tEAVt t R STAT SET 
TO INDICATE RIGHT 
PRO0 0IGIT I^XT 



I— •— E OXXO 
I A M*t 



S5 



B ttB^U 
B ?^Wt 
B Wt^MB 
t WSfE^tSA 

t t*ts 

R 

a?*** xj*« ~SG 

00 NOT STORE M YET 
i^BATEO MPtP PRO0 
WORB TO Lm WS 6 
NEXT m.n 0IG1T (FRf^ 
RT 0|G POS) TO MB 
BR ON SlNGl i STAT 



BR ON M0 EVEN 



"■<aiS4 o<i -sbe 

(00«X0) 

TO^J^^S 

WORB tOOP 



STORE M 



-SFB 



^S404«»- 

(XX) 
STORE PRO0UCT 



;?55449 



, 25A7$0 
i 25*745 
I 255094 
t 255s 03 



t2/aX/64 
01/13/65 
03/01/65 
03/3X/65 



MACH 
NAME 

MonE 

P*N« 

IBM CORP* 



C2050 

MAI^t 

53a402;;> 

S00 



BATE lO/OX/65 
tOG 902 



S^ET X 05402 
V^^SION 



MUtTtBlV BEC- MPCN OBtlWt SET 
OUST SiGNf SFt MPtR niGiT 



SjJi^TXOtt Of" THE 
0I6XT WD 
(OOflO) 



OQ 0010 



43l~ XX 

eec AO© cuRKN^t 

HP ODD 

PARTIAL FFHID f>tU$ 
<tO M«*CN / TO R 



XX 
1000 
«-H.*R 
NOTl^ADDCR 
HD«»X 

WSfg^LSA 

MD»0 



0DA2 



Aa— 



i 



XO 



ODBO 



SUMMATION COMPL^Te 



PART PROD MXWUS 
CORR FACTOR TO R 
DBteD to MRCN / 6S 
ru t 

BR ON MD " 0 



A R/L-^R 
DCO 
I D MD-l 

i 

Sl^ADDCR 
CARNYiOHSX 
Dec ADD CORRN^L 



PART PROD / (DBLED 
to Ml*CN f 6$) TU R 
DECR MD 



PON CURRENT m.H IIJG 



Xi «~ 0D8X 
-E 0X10 
A R^R 

A $R4*F 
t WSfE^UA 



SHIFT FARTXAU FROD RT 
♦ TO R« SPXUt to DIG 
TO F 

MPtR PROD WUrD to t 



INSERT to FNOD DXO IN MFtH PROD WDt TAKt: NEXT MPtR W TO MD 



-as#oa<- 

(XX) 



XO 0DX2 

e xooo 

D MD-X 

w$*e*t»A 
ts*t*ts 



fiX-^ XO ^ 
MD EVEN 

DBtED to MPCN f 6S 
TO t 
DECR MD 



MD ODD 

00 ^ 
E XOXO 
A t4M 
t WS*E*tSA 

t ts*t*ts 



ODOC 



lOOfXO) 

bE WORD MFCW 



XX 



XX - 

I R/t^R 
-*A DCO 



0DA3 



MO PARTXAt PROD TO M 
<tO MPCN / 65) TO t 



XX -^D 

SX^ADDER 

carryTo)*sx 

DEC ADD CORRN^t 

to FART PROD t <tO 
MFCN / 6$) TO R 



t 
t 



XX ' 
XlOO 
R<-4.^R 

HOTX^ADDER 
WS^E^tSA 

ts^t^ts 



0DA4 



XX -%^E 



XX 0DA5 
D MD*»X 



to PART PROD MINUS 
CORR FACTOR TO R 
ThO MPCN + 6S) TO t 



XX 

Sl^ADDER 
CARRY (0)*SI 
DEC ADD CORRN^t 

HO PART PROD + (HO 
MPCN + 6$) TO M 
THERE Witt BE NO 
CARRY OUT 



^1 



iPtY tOOP 



Ifiim BXVEBS 65 ARXTHf 
PERFORM A SUMMATION OF 
THE MPCN FOR THE WPtR 
DialT IN MD 



I MD EVEN I 

10 «~ ODOE XO — 

E XOOO U-l 
A t^M A R/L^R 

U-t WSfE^tSA » A DCO 

tS^t*t5 



ODsa 



I. 



XO ""^C 

HO PART PROD TO M 
(DBtED to MPCN 
/ 6S) TO t 



ODAO 



XX 3 
SX^ADDER 
CARRY (0)*SX 
DEC ADO CC^RN>t 

to PART PROD + . 
(DBtED to MPCN 4* 



65) TO R 



xx * 
E 0000 
A RHj^R 
HD HOTX^ADDER 
D MD-X 
t W$«E^tSA 
t tS4t*tS 
J5— XX 



to PART PROD MINUS 
CORR FACTOR TO R 
(DBtED HO WCN + 
6S) TO t 
DECR MO 



ODAI 



XX -w- 0DA6 
E XOOO 
A M^^M 

HOTX^ADDER 
t WSfEKSA 
L tS^t^tS 
R MOa»0 
67— ' X« --E6 



HO PART PROD MINUS 
CORR FACTOR TO M 
(DBtED to MPCN 
^ 6S) TO t 
BR ON MD • 0 



MD « 0 



MD NOT 



SUMMATION COMPtETE 
SHIFT PARTXAt PROD 
Himr ONE DIGIT AND 
INSERT to PROD DIG 
IN MPtR PROD WD 
PtACi NEXT MPtR 
DIGIT IN MD 



XX — ^ 0D«| 

HE 00X0 
A M*t 

A SR4^F 
t WSvE^tSA 

t t*ts 

XX 



(XX) 



SHIFT HO PART PROD 
RIGHT 4f PUCE IT 
IN t AND WS 2 



XX - 

i M/tW 
-*A DCO 
D MD-X 



j^OT XX •-*%jF 
SX^ADDER 
CARRY(0)^$X 
DEC ADD CORRNK 

HO PART PROD Hh 
(DBtED HO MPCN + 
6S) TO M 
THERE Witt BE NO 
CARRY OUT OF ADD|R(0) 
SO SX IS TURNED OFp 



CONTINUE SUMMATION 



aS40a»SFE 
(XX) 



PREPARE TO STORE PROD WORD 
XX 0D56 



- 0001 
t WS«EH.SA 
tS4tH.S 



XX 



XX 
E OOXX 
A t*A^ 

WSfE^tSA 
t R*tS 



OP X ADR TO t 



0DA7 



N2-^ XX 

OP X ADR TO SAP 

to PART PROD TO WS3 



XX 1 

ooox 

M^DDtBS 
WStEKSA 
tS^R^U 
$03QE«0^BS 
GX<0 



MPtR NOT EXHAUSTED r 



a 

S 

s 

4 



4tX «^C 

COMPtETED PROD WORD 

TO SDR PER BS 

RESET BS 

OP 1 ADR TO R 

BR ON MPtR FIEtD 

EXHAUSTED 



NOTE 

OX WAS STEPPED DOWN 
WHitE THE HPCN (0P2) 
WAS BEING ASSEMBLED 
THUS AT THE TIME THE 
FIRST MPtR DIGIT IS 
SEtECTEDf Gl«tl'-L2^X 
WHEN GX UFtOS Tl#RE 
SWitD m L2/X BYTES 
OF 2SR0S RBIAXNING 
IN THE C»>1 FIELD 



ODAS OX — ODSS 

mmmm^ OOOX 

i A R-44R«A 
D HOTX^ADDER 
t WSfEKSA 
t R^tS 

iL-^ XX — ND 



OP X ADR-^ TO 
SAR« R« WSX 



Gl UFtOWED« CHECK 
REMAINING MPtR FOR 
ZEROS. 3 TO tB 
BR IF Att MPtR IN 
M HAS BEEN REPLACED 



WITH PROD 
IX 

3^tB 



DIGITS 
^ 0D87 



XX 

E OOOl 
A R*4*Rf A 
D HOTX*ADDER 
t WSfEKSA 
R*tS 



0D86 



NS"** Xx ••""WB 

OPX ADR-4 TO 
SARt Rt WSX 



R MB»3 
S4«^ 



I 

JJ(X iwr<n«SD 



SOME ^R REMAINING 
IN M 

tENGTH BFR TO R 

OX 40i4 
E lOXX 
t WSfE^LSA 
L LS^R^LS 



XX -^SE 



XX 

D D^L 
WSfEKSA 
L^tS 

GX<0 

4kX 



0DA9 



**HI t 



NEXT MPLR WORD TO 

L AND WS6 

BR IF GX iFLOWED 



GX UFLOWED 

3lX — ^ 
lOXl 

WStEKSA 
LS^RKS 



0D57 



N7-** XX — NG 
LENGTH BFR TO R 



Gl DID NOT UFLO 



Xx 

B R3>U 
HB ?*WL 
B WL^GX 

WSfE^LSA 
L LS^t^S 
00 



ODAA 



■OS40' 
(00) 
TO FINAt 
PRODUCT 
ASSEMBtY 



to PARTlAt PROD TO L 



!s? TO GX ( THERE SWUjD 
THE 



BE im BYTE OF LEA] 
2ER0S REMAINING IN 
OPX FIELD) 



RETURN TO MULTIPLY LOqP 



-GS402 
(OX) 



I I MACH 

i 254760 12/21^^ I NAME 

I 2S4770 02/01+6S MOnE 

I 2*55449 09/20+65 I P»N# 

i I IBM CORP* 



C2050 

MANUAL 

5364823 

SDD 



DATE 10/01+65 
LOG 902 



SHgET 
VERSION 



X 05404 



MULTIPLY DEC - SINGLE AND DBL 
WD ^Y LOOPS* PROD STORE 



BtOCK €9 • 

flOVe A WDUCT iYTC TO M 

ANO SCT BYTC STAT 

OPl APR TO n 

BRANCH OW- 
•Ol»0 OR M FUUt 
•440 MRTSAL PROD RQD 



QS4O4tNH0- 

(00) 



ASSEMBLE PRODUCT 
00 0014 
OOPl 

0 LBfMB«*l 
U WSfEKSA 
L tS^RKS 
C IfBSJWB 
BQ(A«l)^B 
6iHB2 tB»0 

m -HSB 



R 
R 



(6l«iO)0(nB«rO)^A 



e Olio 

A R<»A 

WStE^tSA 
LS*R*tS 



0D17 



UADINO DIGITS OP OPl 
WSRE ZEROS 
61 UFtOWEO 



E 



OPIB 



XX 
A RfT 



ODAB 



XX — JC I J4— XX -«nJD 

ORIO OPl WD TO 
T POR 2ER0 TEST 



OPl ADR TO SAR 
OPl WD TO R 



XX ^ ODAC 
E 0001 

A i^^wns 

-~C WSfE^tSA 4 
t, tS*RKS 
C S030Ef04BS 
R AQ<B»0)*A 
R 6K0 TZ*BS 

—sJE 

PROD WD TO SDR 

RESET BYTE STATS 

OPl ADR TO R 

BRANCH IP- 
61 UPtOWED 
NON^ZERO LEADING 
DIGIT IN OPl 



lUC 

WSvEttSA 
tS*L*tS 
lAfOfa^A 

I-PBTCH 

EXCPNQIA<30)*A 

EXCPN0(|A(30)tReP)tB 
PREPARE PGR ENTRY 
TO SECOND CYCLE OP 
l-PETCH 



S 
C 
R 



TO 2ND CYaE OP |-#ETCH 



n 



OP I-PgTCH 



Ol ^ 
E 0010 
t WSfE^LSA 
LS^L^LS 



1J 



NONZERO LEADING 
DIGIT IN OPl PIELD 
10 — ODIA 
OUl 
B E*WR 
B W*MDfP 



INTERRUPT FOR DATA EXCEPTION 



-OTSIC 
(OX) 
TO INTERRUPT 
ROUTINE 



OX -«UP 



INDICATE DATA 
EXCEPTION 



PETCH NEXT OPl WORD 
Ol ODl^ 
E OOOl 
A R*4^RtA 

HOTl^ADDBR 
L WSfEKSA 
L R*LS 



XX ^ 
E Olio 
D D^R 
WS#EH.SA 
R#LS 



ODAO 



00 «<Myc 

HO PART PROD TO L 



XX 



R 

N7^ 



0 LB«*3 

0* — WG 



OPl ADR-4 TO 
SARf Rf WSl 



NEXT OPl WO TO 
Rf WS$ 

BR OM HO PART PROP 
REOUIRED 



4 

0 
6 



tS4?60 
t54765 
2SS449 



0l/l3k5 
09/20H5 



MACH 
NAME 
NODE 
P*N« 

Xm CORP. 



C2050 

MANUAL 
53648;»4 

sno 



DATE 10/01^5 
LOG 902 



SHEET I aS40* 
VERSION 



MULTIPLY DECIMAL (MP! 
PINAL PRODUCT ASSEMBLY 



(OOiOXX) 



ooioxx — 

^ OQOO 



C09 



XX 



07B5 



XX 



PAO^t iST OP Z W 
TO tf W fWOH SDR« 
SCT HVR f CTN RKG 
TO 000 (C«0$$^T) 



B UB^U 
-~B VUWt t*WR 
B W^MHB 

XX — 

0^ 2 MDR TO t« 
CROSS HAtf Of 
1ST BYTe TO RT HP 
OF BYTE IH M« 



XX 07B6 
E OO&O 
A HHrW^T 
"0 HOTl*Ai)DfeR 
C e^S03 



XX ~AC 

xi.mfY<36-^i) 

SUBTRACT 0? 2 AOR 
PHQW OP I ADR FOR 
ADR COMFt (R-t)t 
TN ON STAT 2 
(R t STAT TO L) 



XX 
0000 

WStC^tSA 
LS^t^US 



07B7 



4c~o B 



XO 



079C 



TlS«0 
X* — Af) 



FftlCH 1ST UP 2 WD 



assoEtecC" 

(XOtXX) 



LL^U MMB^V 
nWU VR^WR 

OX •2-1 
LBfWi*-i 
X<>IIS«Hi 

$1MB2 02LB2 

uli^i J\\ t 

(01»"0)Q<«B»0)4A 
(a2*0)Q(tB»0}^B 
XFER OP 2 DIOXT 
TO W tP MP BYTCt 



00 



<02 



UB*U 

B W*MHB 
0 G2.1 
D LB-l 

R 62tBS 
tl^ X* 
2<tO)fl(tB»0)^B 



7«C 

ii^R ♦■'%"0 B 



asso2»jcp- 

(OXiXX) 



c 

R 



R-4K 
0— HO HOTl^ADDCR 
L WS24tSA 
IKS 
S03«iE 

G2<0 

JX— X* — 
OP X ADR TO U PROI 
R« OP 2 ADR TO Rf 
TN OFF STAT 2 
(R+t STAT RIGHT)* 



XX ^ 07A; 
00X0 
R--4*L 

MHB^V 
VR^WR 

WR'^F 

HOTX*ADDCR 
WS2KSA 

soW 

G2<0 ^ 
XS0I 

UPDATE 0P2 ADR 
R/t STAT TO LEFT 
SAVE LAST DIGIT IN F 



B 

B 

D 

L 

k 

R 



XO 



07A2 



H-tWA*T 
HOTX^ADDCR 
WS2KSA 
LS^RKS 



XX ^ 

c ooox 

A R^A 

•i^"'%ii<"'%iii^"%»<"*C S03#*| 6 



7B4 



XX -^C 



XX^XCfY<30-3X) 
SUB OP ADDRESSES 



R AQ(B«0)^A 
R S3 TX3«0 
CS*^"* <*wCE 

0P2 ADR TO SAR* 
BR ON OP 2 NEEDED 
AND WD ADDRESSES 
EQUAL* 

TN OFF STAT 3* 



■^50 2 - ---- A DE 

(XX) 

OVERLAP CASE 



I 

B 



00 



7ea 



tLB*U 

VL^WL UR^WR 
W^MMB 

oa^'x 

LB<»X 

G2«0 

E7-%-. 
OP 2 DIGIT TO M« 
DECR G2f LBt 



B 
0 
D 
R 



-"OSSOS 



I 



XO 



— 07A0j I ^ 

1 



B LLB^U HMB^V 
~ T*WL VR*WR 
B W^W^IB 
D GXf2«»X 
D LBfHB-X 
C X^BSiM4B 
R GXMBZ 62LB2 ^ 

(GX«0)Q<MB»0)*A 
(02»0)0(i.B»0)'>B 
OP 2 DIGIT TO « 
LEFT BYTE* OECR 
GXf G2* LB* MB* 
SET BYTE STAT* 



XX — 
OOOX 
OKB*HD 
SOSOE 



07A3 



om 



S2 

OMn^C 



I 

B 



00 



0790 



OP X 
FROM 
STAT 



ADR^TO^R 
if^CN^EoV 2) 



n 



xo 

fi ooox 

A M*A 
S03«^E 



07BE 



GX<0 
NX— 



«X 



OP X ADR TO SAR* 



a 

S 
5 
0 
0 



OP X ADR TO SAR, 
TN ON STAT 3 
(Ni^D OP 2)# 

XX OTSF 
E OOOX 
A l#A 
S030E 

R Gl<0 

4rX -^-SA 



OX 



07X9 



HOTX^ADDER 



N2<— 



SX 
X«( «-*«NB 



r 

♦^1 c 



INOR CH» X ABR 
(R 4* 4 TO R)* 
BR ON STAT X 
(MOVE WITH OFFSET) 



M TO Sm PER BYTE 
STATS* END* 



XO 
0000 
M*D*BS 
E^BS 



R 0 

N3— »«" 



0^ 



S3 



O^L 
WH^MMB 
D GX*X 
f»0 MB-X 
C X^BS«MB 
R GXMBZ 0 

«0 -"OB 



(GX«0>0(MB«0)^A 
2ER0 BYTE TO M* 



OX 
O^L 



M TO SDR PER 
STATS* RESET 
BR ON STAT 3 
(NEED OP 2)* 



BYTE 
BS* 



UL^WL VR^' 



079J 



MMB^V 
WR 



^1 1 1 kJi \ 



XO 
D4L 



SX 



078(> ^ I 



$2 



op 2 TO L FPOM 
SDR* BR ON STAT X 
(MOVE WITH OFFSET 
XNST) AND STAT 2 
(R/L TO LEFT)* 



i 

B 

I D 

D 
C 
R 



OX • 

LLB^U 
?#WL 



0709 



GX*2*X 
LBfMB"»X 
X^BSHiMB 

GXMB2 G2«>0 

(GX«0)Q(MB«0)^A 

OP 2 BJOIT^TO M 
LEFT HALF BYTE* 



0792 



6W 
MB-X 
X*«S«MB 
GXMB2 0 

*0 -H^D 



(GX«0)0(MB«iO)^A 

INSERT ZERO DIGIT 
INTO LEFT HALF 
BYTE IN M* DECR 



H^A 



ox<o 



Ollli^**M^'"^^ 



OP X ADR TO SAR* 



OX 
0000 
M^D*BS 
E^BS 



0785 



XX 



A R^A 
17-- 




0787 



M TO SDR PER 
BYTE STATS 



XX 

0P2 ADR TO SAR 



S2 



-OSSOl 

(OOtOXtiX) 



OP X wo TO L* M 
FROM SDR* 



-05503 
(XX) 
MOVE WITH 
OFFSET 



I 



XX 



07XB 



A M^D^BS 



•^TXOO««--w*SB£ 
^I-ffiTCH 



S2^ 



XX ---SB 



I MACH C2050 

2S4765 0|fX3H5 NAME 

I 255094 03401+45 MODE MAftftiAL 

I 955449 094ioHS P»N« 5S448:»5 

t ' I IBM CORP« SDn 



DATE 
LOG 



X040X+65 
902 



SHEET 
VERSION 



X OS500 



PACK* MOVE WITH OPFSFT 



Oil 



(OOfOlfil) 



I 

Ax- 



F INTO «»RT HA(LF 
BVTit 



I I 



1*BSj«iWB 



00 

B LLB^U 
B U^W 
B W*M«B 

0 Li*-X 

n 



079$ 
I 



(Ga«i0)acMBii0)4A 

(02»0)tt<tBi»0>#B 
INSERT Up 2 DX6XT 
XN « MP BYTE» 



G2LB2i 
X« —AC 
XPgH UP Z BYTE 
TQ N« oecH OSf LB 



00 



0794 



^ B UB*U 

B W^MHB 
D G2-X 
B LB.«»X 

R G21BZ 
gX*^ X* *-€A 
<G2«0)QCtB«0)^B 
INSERT OP Z BYTE 
IWTO Wt 



XX 



079D 



B 
B 



QS500*NBe« 

(XX) 



UB^U HHB^V 
VR^WR 

•w^^B W^MMB 
t> GX«2-X 

GXMB2 G2LB^^ 



wove WtOFSET 

XX 0797 

I I*- 

B HDfF^U 
•"-HI U^W 

B W^HHB 



JX— XO ^A 

XFCR BYTE IN HOP 
TO M# 



aS500#ADi-~- 

CXX) 

PACK 

FROM OVERLAP 
TEST 



B 
C 
R 



E2-^ 



4Q«( -H£B 




XX — 07AB 
00X0 1 
R*"4^(^ 

MMB*V 
VR^WR 

HOTX^AOBER 

wsaittsA 

Ga<o 

A4— m «^A0 
OPH ADR-^ 
TU t« W$2« 
TN UN STAT2 
im, TO tF)f 



A 

B 
B 
B 
0 
t 
I. 
C 
R 



(GXiiO)0(MB«0)^A 
(G2<iO)0(tB«0)^B 
SAME AS AB 



OX 0799 
00X0 
R-4*L 

MOTX^ABDBR 
t WS2*tSA 
t LKS 
C S03,^E 
R G2C0 
E3*'''* XjJj ••'''HEC 
0P2 ADR*4 
TO Lf WS2t 
BR ON G2 
LESS THAN 2ER0« 
TN R+L STAT 
2 TO RT(ON}t 



J 



XO ^ 
E OOOX 
A H4R«A 
S03«iE 



079A 



XO 



07A4 



R^<0 



*>X "wiwJC 



OF X ADR TO SAR# 



B UB^y MHB^V 
—HI t^Wt VR4WR 
B W^MMB 
B GX-X 
0 MB*»X 
C X-^BS^q^B 
R GXHBZ 

HtX •«"^iB 
(GX«O)a<HB»0)*A 

INSERT gP 2 DIGIT 
TO M tEFTt DECR 
GXf HB« 

SET BYTE STAT. 



OX - 
UB^U 



07XD 



T^WR 



G2-X 
LB-X 



XX 



07A5 



MMB^V 
VR^WR 



G2tBZ^ 

XFER m TO L» 
INSERT OP 2 BYTE 
INTO M# DECR G2« LB« 



A R«4K 
B 
B 

/«-B WR^F 

D HOTX^ADDER 
L WS2*tSA 
t t*LS _ 

« Ga<;o 

s^6««> X>K 
LIKE Nl 



A 
B 
B 
B 
D 
D 
C 
R 
J7" 



XX — 079F 
0000 

MBfFfU 



G2*X 
L»-X 
E4BS 



G2tB2 
X* ---UG 



XX O7B0 
i »#Rf A 



M TO SBR PER BYTE 
STATSt 



R GX<0 



OP X ADR TO SAR« 



1 



OOOX 

H'^RtA 

S03Q6 



0798 ^^ 




HISSOO-^ 
(XOfXX) 



-€CE 



0X<0 
N3^ *X -H^C 



OP X ADR TO SARt 
TN ON STAT 3 
iOP 2 NEEDED) • 



OSOXOtNIE- 
(OgOlXX) 
FROM I'-FiTCH 



a 

S 
5 
0 
2 



^^VE WITH OFFSET 
XST OP 2 WD TO M» 
SET STAT X <MWO)# 
OOOXXX — ^ C04 
~ 0X00 
D D*M 
L WS2^SA 
L tS^L^tS 
C S030E 



SUB OP 2 ADR FROM 
OP X ADR (H«LU 
XX*XGfY(30»3X) 

XX 07B9 
E OXXO 
A M<WA^T 
MOTX^ADDER 
f4S03 



XFER XST OP 2 WD 
FROM M TO U 



XX 



XX -%^A 



S2*^ 



XX -^1 



A M^t 



R 

S3— 



07BA 



Tl3»0 
X* '-•SO 



I 

6 UB*U MMB*V 
^ nWt VR*WR 
B W^MMB 
0 GX**X 
D M3«»X 
C XtBSfMB 
R GXMBZ 
N4~ 0X -HyD 
(GX»0)Q(MB9i0)^A 

LIKE JD 

C»» X ADR TO SAR 

07A6 



A m. 



B LLB^U 
B OW 



WL^MD 



N5^ 



XX 



XFER XST OP 2 WD 
FROM M TO L» 



XX 07BB 

8 Si:| 

C X^BS^ 
R GXMB2 ^ 1 
N#» *X -H^ 
<GX»0m<MB«0)*A 

INSERT OP 2 DIGIT 
TO M LEFTt DECR 
GXf MB* 



D 



1 LLBJ^ 

B W^MMB 

D G2*»X 
D LB-X 
R 



^SSOO-^-HHSsC 

(OXfXX) 



T^WR --0 



XST OP X WD TO M 



I 



XO 



A H^A 



S4— 



XX -^SD 



XX 
I D^M 



Ss*""* 



078B 



XO «^SE 



XO ~- 07AB 
t t 
B LLB^U MMB*V I 
: t*WL VR^WR • 
B W^MMB i 
— H& GX'-X I 
D MB-X 
C X^B$«MB 
R GXMBZ 
07— *X — SF 
(Gi»0)0(MB«iO)^A 

IJSfSERT OF 2 DIGIT 
TO M LEFTt DECR 
GXt MB# 



G2LB2I 
X* — NH 
(G2«0)0(LB»0>-#B 
)a»ER OP 2 BYTE TO 
M« DECR 62f LB* 



OP X ADR TO SAR 
BR ON GX LESS 
THAN 2ER0t 

^ IX 0723 

A H^A I 

LlB^U 
B U^W 
B V4.^D 
GX<0 



A R<^tL 
B MMBi^yl 
B VR^WRI 

WR*F 
D HOTl^AODER 
L WS2^LSA 
L L*LS 

S GXO , 

N9— X4i •--Nl 



0P2-4 TO L* 
L TO WS2* 
SAVE LAST IN F 
IN CASE FIELDS 
OVERLAP* 



2S47<^0 
aSS449 



X2t2X/^* 
09+«0/6» 



MACH 
NAME 
MODE 
P*N» 

IBM CORP* 



*X f-^H 

C20S0 

MARHJAL 

S364826 

SDD 



DATE 
LOG 



XOfOX/fcS 
902 



SHEET 
VERSION 



X aS502 



PACKf MOVE WITH OFFSET 



I0OIIXX) 



ooiixx 

^ 003.1 
D 0^t«H 

I 



coc 



XX 



06C$ 
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